home *** CD-ROM | disk | FTP | other *** search
/ CICA 1995 August / CICA - The Ultimate Collection of Shareware for Windows (Disc 2) (August 1995).iso / disc2 / programr / vbasic / bv0447.exe / WINAPI.TXT
Text File  |  1991-08-05  |  125KB  |  2,831 lines
  1. ' ------------------------------------------------------------------------
  2. '
  3. '     WINAPI.TXT -- Windows 3.0 API Declarations for Visual Basic
  4. '
  5. '              Copyright (C) 1991 Microsoft Corporation
  6. '
  7. '  You have a royalty-free right to use, modify, reproduce and distribute
  8. '  this file (and/or any modified version) in any way you find useful,
  9. '  provided that you agree that Microsoft has no warranty, obligation or
  10. '  liability for its contents.  Refer to the Microsoft Windows Programmer's
  11. '  Reference for further information.
  12. '
  13. '  The WINAPI.TXT file further below contains the following corrections 
  14. '  to the older WINAPI.TXT dated 5/14/91 and shipped with the "Microsoft
  15. '  Windows Programmer's Reference" and Online Resource:
  16. '
  17. '1. The following incorrect statement:
  18. '
  19. '   Declare Function SetCommState Lib "User" () 
  20. '
  21. '   was changed to the following correct statement:
  22. '
  23. '   Declare Function SetCommState Lib "User" (lpDCB as DCB) As Integer
  24. '
  25. '2. The Declare statement for WinExec was missing the ByVal attribute 
  26. '   in the second parameter. Without this ByVal, invoking WinExec can 
  27. '   cause a Windows "Unrecoverable Application Error" ("UAE"). The 
  28. '   WinExec Declare statement was changed to read as follows (on one 
  29. '   line):
  30. '
  31. '   Declare Function WinExec Lib "Kernel" (ByVal lpCmdLine As String,
  32. '                            ByVal nCmdShow As Integer) As Integer
  33. '
  34. '3. The following statement was incorrect
  35. '
  36. '   GetDC Lib "GDI" (ByVal hWnd As Integer) As Integer
  37. '
  38. '   and was changed to read as follows:
  39. '
  40. '   GetDC Lib "USER" (ByVal hWnd As Integer) As Integer
  41. '
  42. '   (In other words, the function GetDC is in the Windows "USER"
  43. '   library, not in the "GDI" library.)  
  44. ' ------------------------------------------------------------------------
  45.  
  46. '   General Purpose Definitions
  47.  
  48. Global Const NULL = 0
  49.  
  50. Type RECT
  51.     left As Integer
  52.     top As Integer
  53.     right As Integer
  54.     bottom As Integer
  55. End Type
  56.  
  57. Type POINTAPI
  58.     x As Integer
  59.     y As Integer
  60. End Type
  61.  
  62. ' --------------------------------------------------------------------------
  63. '   Kernel Section
  64. ' --------------------------------------------------------------------------
  65.  
  66.  
  67. ' ParameterBlock description structure for use with LoadModule
  68. Type PARAMETERBLOCK
  69.     wEnvSeg As Integer
  70.     lpCmdLine As Long
  71.     lpCmdShow As Long
  72.     dwReserved As Long
  73. End Type
  74.  
  75. '  Loader Routines
  76. Declare Function GetVersion Lib "Kernel" () As Integer
  77. Declare Function GetNumTasks Lib "Kernel" () As Integer
  78. Declare Function GetModuleHandle Lib "Kernel" (ByVal lpModuleName As String) As Integer
  79. Declare Function GetModuleUsage Lib "Kernel" (ByVal hModule As Integer) As Integer
  80. Declare Function GetModuleFileName Lib "Kernel" (ByVal hModule As Integer, ByVal lpFilename As String, ByVal nSize As Integer) As Integer
  81. Declare Function GetInstanceData Lib "Kernel" (ByVal hInstance As Integer, ByVal pData As Integer, ByVal nCount As Integer) As Integer
  82. Declare Function LoadLibrary Lib "Kernel" (ByVal lpLibFileName As String) As Integer
  83. Declare Function LoadModule Lib "Kernel" (ByVal lpModuleName As String, lpParameterBlock As PARAMETERBLOCK) As Integer
  84. Declare Sub FreeModule Lib "Kernel" (ByVal hModule As Integer) 
  85. Declare Sub FreeLibrary Lib "Kernel" (ByVal hLibModule As Integer)
  86. Declare Function GetFreeSpace Lib "Kernel" (ByVal wFlags As Integer) As Long
  87. Declare Function WinExec Lib "Kernel" (ByVal lpCmdLine As String, ByVal nCmdShow As Integer) As Integer
  88. Declare Sub DebugBreak Lib "Kernel" ()
  89. Declare Sub OutputDebugString Lib "Kernel" (ByVal lpOutputString As String)
  90. Declare Sub SwitchStackBack Lib "Kernel" ()
  91. Declare Sub SwitchStackTo Lib "Kernel" (ByVal wStackSegment As Integer, ByVal wStackPointer As Integer, ByVal wStackTop As Integer)
  92. Declare Function GetCurrentPDB Lib "Kernel" () As Integer
  93.  
  94.  
  95. '  OpenFile() Structure
  96. Type OFSTRUCT
  97.     cBytes As String * 1
  98.     fFixedDisk As String * 1
  99.     nErrCode As Integer
  100.     reserved As String * 4
  101.     szPathName As String * 128
  102. End Type
  103.  
  104. '  OpenFile() Flags
  105. Global Const OF_READ = &H0
  106. Global Const OF_WRITE = &H1
  107. Global Const OF_READWRITE = &H2
  108. Global Const OF_SHARE_COMPAT = &H0
  109. Global Const OF_SHARE_EXCLUSIVE = &H10
  110. Global Const OF_SHARE_DENY_WRITE = &H20
  111. Global Const OF_SHARE_DENY_READ = &H30
  112. Global Const OF_SHARE_DENY_NONE = &H40
  113. Global Const OF_PARSE = &H100
  114. Global Const OF_DELETE = &H200
  115. Global Const OF_VERIFY = &H400
  116. Global Const OF_CANCEL = &H800
  117. Global Const OF_CREATE = &H1000
  118. Global Const OF_PROMPT = &H2000
  119. Global Const OF_EXIST = &H4000
  120. Global Const OF_REOPEN = &H8000
  121.  
  122. Declare Function OpenFile Lib "Kernel" (ByVal lpFileName As String, lpReOpenBuff As OFSTRUCT, ByVal wStyle As Integer) As Integer
  123.  
  124. '  GetTempFileName() Flags
  125. '
  126. Global Const TF_FORCEDRIVE = &H80
  127.  
  128. Declare Function GetTempDrive Lib "Kernel" (ByVal cDriveLetter as Integer) As Integer
  129. Declare Function GetTempFileName Lib "Kernel" (ByVal cDriveLetter as Integer, ByVal lpPrefixString As String, ByVal wUnique As Integer, ByVal lpTempFileName As String) As Integer
  130. Declare Function SetHandleCount Lib "Kernel" (ByVal wNumber As Integer) As Integer
  131.  
  132. Declare Function GetDriveType Lib "Kernel" (ByVal nDrive As Integer) As Integer
  133.  
  134. '  GetDriveType return values
  135. Global Const DRIVE_REMOVABLE = 2
  136. Global Const DRIVE_FIXED = 3
  137. Global Const DRIVE_REMOTE = 4
  138.  
  139. '  Global Memory Flags
  140. Global Const GMEM_FIXED = &H0
  141. Global Const GMEM_MOVEABLE = &H2
  142. Global Const GMEM_NOCOMPACT = &H10
  143. Global Const GMEM_NODISCARD = &H20
  144. Global Const GMEM_ZEROINIT = &H40
  145. Global Const GMEM_MODIFY = &H80
  146. Global Const GMEM_DISCARDABLE = &H100
  147. Global Const GMEM_NOT_BANKED = &H1000
  148. Global Const GMEM_SHARE = &H2000
  149. Global Const GMEM_DDESHARE = &H2000
  150. Global Const GMEM_NOTIFY = &H4000
  151. Global Const GMEM_LOWER = GMEM_NOT_BANKED
  152.  
  153. Global Const GHND = (GMEM_MOVEABLE Or GMEM_ZEROINIT)
  154. Global Const GPTR = (GMEM_FIXED Or GMEM_ZEROINIT)
  155.  
  156. Declare Function GlobalAlloc Lib "Kernel" (ByVal wFlags As Integer, ByVal dwBytes As Long) As Integer
  157. Declare Function GlobalCompact Lib "Kernel" (ByVal dwMinFree As Long) As Long
  158. Declare Function GlobalFree Lib "Kernel" (ByVal hMem As Integer) As Integer
  159. Declare Function GlobalHandle Lib "Kernel" (ByVal wMem As Integer) As Long
  160. Declare Function GlobalLock Lib "Kernel" (ByVal hMem As Integer) As Long
  161. Declare Function GlobalReAlloc Lib "Kernel" (ByVal hMem As Integer, ByVal dwBytes As Long, ByVal wFlags As Integer) As Integer
  162.  
  163. 'NOTE: instead of declaring the function GlobalDiscard and calling 
  164. '      GlobalDiscard(hMem), call GlobalReAlloc(hMem, 0, GMEM_MOVEABLE)
  165.  
  166. Declare Function GlobalSize Lib "Kernel" (ByVal hMem As Integer) As Long
  167. Declare Function GlobalUnlock Lib "Kernel" (ByVal hMem As Integer) As Integer
  168. Declare Function UnlockResource Lib "Kernel" Alias "GlobalUnlock" (ByVal hMem As Integer) As Integer
  169. Declare Function GlobalFlags Lib "Kernel" (ByVal hMem As Integer) As Integer
  170. Declare Function GlobalWire Lib "Kernel" (ByVal hMem As Integer) As Long
  171. Declare Function GlobalUnWire Lib "Kernel" (ByVal hMem As Integer) As Integer
  172. Declare Function GlobalUnlock Lib "Kernel" (ByVal hMem As Integer) As Integer
  173. Declare Function GlobalLRUNewest Lib "Kernel" (ByVal hMem As Integer) As Integer
  174. Declare Function GlobalLRUOldest Lib "Kernel" (ByVal hMem As Integer) As Integer
  175. Declare Function GlobalPageLock Lib "Kernel" (ByVal wSelector As Integer) As Integer
  176. Declare Function GlobalPageUnlock Lib "Kernel" (ByVal wSelector As Integer) As Integer
  177. Declare Sub GlobalFix Lib "Kernel" (ByVal hMem As Integer)
  178. Declare Function GlobalUnfix Lib "Kernel" (ByVal hMem As Integer) As Integer
  179.  
  180. '  Flags returned by GlobalFlags (in addition to GMEM_DISCARDABLE)
  181. Global Const GMEM_DISCARDED = &H4000
  182. Global Const GMEM_LOCKCOUNT = &HFF
  183.  
  184. Declare Function LockSegment Lib "Kernel" (ByVal wSegment As Integer) As Integer
  185. Declare Function UnlockSegment Lib "Kernel" (ByVal wSegment As Integer) As Integer
  186.  
  187. '  Local Memory Flags
  188. Global Const LMEM_FIXED = &H0
  189. Global Const LMEM_MOVEABLE = &H2
  190. Global Const LMEM_NOCOMPACT = &H10
  191. Global Const LMEM_NODISCARD = &H20
  192. Global Const LMEM_ZEROINIT = &H40
  193. Global Const LMEM_MODIFY = &H80
  194. Global Const LMEM_DISCARDABLE = &HF00
  195.  
  196. Global Const LHND = (LMEM_MOVEABLE+LMEM_ZEROINIT)
  197. Global Const LPTR = (LMEM_FIXED+LMEM_ZEROINIT)
  198.  
  199. Global Const NONZEROLHND = (LMEM_MOVEABLE)
  200. Global Const NONZEROLPTR = (LMEM_FIXED)
  201.  
  202. Global Const LNOTIFY_OUTOFMEM = 0
  203. Global Const LNOTIFY_MOVE = 1
  204. Global Const LNOTIFY_DISCARD = 2
  205.  
  206. Declare Function LocalAlloc Lib "Kernel" (ByVal wFlags As Integer, ByVal wBytes As Integer) As Integer
  207. Declare Function LocalCompact Lib "Kernel" (ByVal wMinFree As Integer) As Integer
  208. Declare Function LocalFree Lib "Kernel" (ByVal hMem As Integer) As Integer
  209. Declare Function LocalHandle Lib "Kernel" (ByVal wMem As Integer) As Integer
  210. Declare Function LocalInit Lib "Kernel" (ByVal wSegment As Integer, ByVal pStart As Integer, ByVal pEnd As Integer) As Integer
  211. Declare Function LocalLock Lib "Kernel" (ByVal hMem As Integer) As Integer '(returns a near pointer)
  212. Declare Function LocalReAlloc Lib "Kernel" (ByVal hMem As Integer, ByVal wBytes As Integer, ByVal wFlags As Integer) As Integer
  213.  
  214. 'NOTE: instead of declaring the function LocalDiscard and calling 
  215. '      LocalDiscard(hMem), call LocalReAlloc(hMem, 0, LMEM_MOVEABLE)
  216.  
  217. Declare Function LocalSize Lib "Kernel" (ByVal hMem As Integer) As Integer
  218. Declare Function LocalUnlock Lib "Kernel" (ByVal hMem As Integer) As Integer
  219. Declare Function LocalFlags Lib "Kernel" (ByVal hMem As Integer) As Integer
  220. Declare Function LocalShrink Lib "Kernel" (ByVal hSeg As Integer, ByVal wSize As Integer) As Integer
  221.  
  222. '  Flags returned by LocalFlags (in addition to LMEM_DISCARDABLE)
  223. Global Const LMEM_DISCARDED = &H4000
  224. Global Const LMEM_LOCKCOUNT = &HFF
  225.  
  226. Declare Function SetSwapAreaSize Lib "Kernel" (ByVal rsSize As Integer) As Long
  227. Declare Function ValidateFreeSpaces Lib "Kernel" () As Long
  228. Declare Sub LimitEmsPages Lib "Kernel" (ByVal dwKbytes As Long)
  229. Declare Function SetErrorMode Lib "Kernel" (ByVal wMode As Integer) As Integer
  230. Declare Sub ValidateCodeSegments Lib "Kernel" ()
  231.  
  232. Declare Function GetDOSEnvironment Lib "Kernel" () As Long
  233.  
  234. Declare Function AllocDStoCSAlias Lib "Kernel" (ByVal wSelector As Integer) As Integer
  235. Declare Function AllocSelector Lib "Kernel" (ByVal wSelector As Integer) As Integer
  236. Declare Function ChangeSelector Lib "Kernel" (ByVal wDestSelector As Integer, ByVal wSourceSelector As Integer) As Integer
  237. Declare Function FreeSelector Lib "Kernel" (ByVal wSelector As Integer) As Integer
  238. Declare Function FindResource Lib "Kernel" (ByVal hInstance As Integer, ByVal lpName As String, ByVal lpType As Any) As Integer
  239. Declare Function LoadResource Lib "Kernel" (ByVal hInstance As Integer, ByVal hResInfo As Integer) As Integer
  240. Declare Function FreeResource Lib "Kernel" (ByVal hResData As Integer) As Integer
  241. Declare Function LockResource Lib "Kernel" (ByVal hResData As Integer) As Long
  242. Declare Function AllocResource Lib "Kernel" (ByVal hInstance As Integer, ByVal hResInfo As Integer, ByVal dwSize As Long) As Integer
  243. Declare Function SizeofResource Lib "Kernel" (ByVal hInstance As Integer, ByVal hResInfo As Integer) As Integer
  244. Declare Function AccessResource Lib "Kernel" (ByVal hInstance As Integer, ByVal hResInfo As Integer) As Integer
  245.  
  246. '  Predefined Resource Types
  247. Global Const RT_CURSOR = 1&
  248. Global Const RT_BITMAP = 2&
  249. Global Const RT_ICON = 3&
  250. Global Const RT_MENU = 4&
  251. Global Const RT_DIALOG = 5&
  252. Global Const RT_STRING = 6&
  253. Global Const RT_FONTDIR = 7&
  254. Global Const RT_FONT = 8&
  255. Global Const RT_ACCELERATOR = 9&
  256. Global Const RT_RCDATA = 10&
  257.  
  258. Declare Sub Yield Lib "Kernel" ()
  259. Declare Function GetCurrentTask Lib "Kernel" () As Integer
  260.  
  261. Declare Function InitAtomTable Lib "Kernel" (ByVal nSize As Integer) As Integer
  262. Declare Function AddAtom Lib "Kernel" (ByVal lpString As String) As Integer
  263. Declare Function DeleteAtom Lib "Kernel" (ByVal nAtom As Integer) As Integer
  264. Declare Function FindAtom Lib "Kernel" (ByVal lpString As String) As Integer
  265. Declare Function GetAtomName Lib "Kernel" (ByVal nAtom As Integer, ByVal lpBuffer As String, ByVal nSize As Integer) As Integer
  266. Declare Function GlobalAddAtom Lib "Kernel" (ByVal lpString As String) As Integer
  267. Declare Function GlobalDeleteAtom Lib "Kernel" (ByVal nAtom As Integer) As Integer
  268. Declare Function GlobalFindAtom Lib "Kernel" (ByVal lpString As String) As Integer
  269. Declare Function GlobalGetAtomName Lib "Kernel" (ByVal nAtom As Integer, ByVal lpbuffer As String, ByVal nSize As Integer) As Integer
  270. Declare Function GetAtomHandle Lib "Kernel" (ByVal wAtom As Integer) As Integer
  271.  
  272.  
  273. '  User Profile Routines
  274. Declare Function GetProfileInt Lib "Kernel" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal nDefault As Integer) As Integer
  275. Declare Function GetProfileString Lib "Kernel" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer) As Integer
  276. Declare Function WriteProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String) As Integer
  277. Declare Function GetPrivateProfileInt Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Integer, ByVal lpFileName As String) As Integer
  278. Declare Function GetPrivateProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
  279. Declare Function WritePrivateProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lplFileName As String) As Integer
  280. Declare Function GetWindowsDirectory Lib "Kernel" (ByVal lpBuffer As String, ByVal nSize As Integer) As Integer
  281. Declare Function GetSystemDirectory Lib "Kernel" (ByVal lpBuffer As String, ByVal nSize As Integer) As Integer
  282.  
  283. 'NOTE: Catch/Throw expect a long pointer to an 18-byte buffer (lpCatchBuf)
  284. ' eg:
  285. '     Dim Buffer(1 To 9) As Integer
  286. '    result% = Catch (Buffer(1))        
  287.  
  288. Declare Function Catch Lib "Kernel" (lpCatchBuf As Any) As Integer
  289. Declare Sub Throw Lib "Kernel" (lpCatchBuf As Any, ByVal nThrowBack As Integer)
  290.  
  291. Declare Sub FatalExit Lib "Kernel" (ByVal Code As Integer)
  292. Declare Sub SwapRecording Lib "Kernel" (ByVal wFlag As Integer)
  293.  
  294. '  Character Translation Routines
  295. Declare Function AnsiToOem Lib "Keyboard" (ByVal lpAnsiStr As String, ByVal lpOemStr As String) As Integer
  296. Declare Function OemToAnsi Lib "Keyboard" (ByVal lpOemStr As String, ByVal lpAnsiStr As String) As Integer
  297. Declare Sub AnsiToOemBuff Lib "Keyboard" (ByVal lpAnsiStr As String, ByVal lpOemStr As String, ByVal nLength As Integer)
  298. Declare Sub OemToAnsiBuff Lib "Keyboard" (ByVal lpOemStr As String, ByVal lpAnsiStr As String, ByVal nLength as Integer)
  299. Declare Function AnsiUpper Lib "User" (ByVal lpString As String) As String
  300. Declare Function AnsiUpperBuff Lib "User" (ByVal lpString As String, ByVal aWORD As Integer) As Integer
  301. Declare Function AnsiLower Lib "User" (ByVal lpString As String) As Long
  302. Declare Function AnsiLowerBuff Lib "User" (ByVal lpString As String, ByVal aWORD As Integer) As Integer
  303. Declare Function AnsiNext Lib "User" (ByVal lpString As String) As Long
  304. Declare Function AnsiPrev Lib "User" (ByVal lpString As String, ByVal lpString As String) As Long
  305.  
  306. '  Keyboard Information Routines
  307. Declare Function OemKeyScan Lib "Keyboard" (ByVal wOemChar As Integer) As Long
  308. Declare Function VkKeyScan Lib "Keyboard" (ByVal cChar As Integer) As Integer
  309. Declare Function GetKeyboardType Lib "Keyboard" (ByVal nTypeFlag As Integer) As Integer
  310. Declare Function MapVirtualKey Lib "Keyboard" (ByVal wCode As Integer, ByVal wMapType As Integer) As Integer
  311. Declare Function GetKBCodePage Lib "Keyboard" ()
  312. Declare Function GetKeyNameText Lib "Keyboard" (ByVal lParam As Long, ByVal lpBuffer As String, ByVal nSize As Integer) As Integer
  313. Declare Function ToAscii Lib "Keyboard" (ByVal wVirtKey As Integer, ByVal wScanCode As Integer, lpKeyState As Any, lpChar As Any, Byval wFlags As Integer) As Integer
  314.  
  315. '  Language dependent Routines
  316. Declare Function IsCharAlpha Lib "User" (ByVal cChar As Integer) As Integer
  317. Declare Function IsCharAlphaNumeric Lib "User" (ByVal cChar As Integer) As Integer
  318. Declare Function IsCharUpper Lib "User" (ByVal cChar As Integer) As Integer
  319. Declare Function IsCharLower Lib "User" (ByVal cChar As Integer) As Integer
  320.  
  321. Declare Function GetWinFlags Lib "Kernel" () As Long
  322.  
  323. Global Const WF_PMODE = &H1
  324. Global Const WF_CPU286 = &H2
  325. Global Const WF_CPU386 = &H4
  326. Global Const WF_CPU486 = &H8
  327. Global Const WF_STANDARD = &H10
  328. Global Const WF_WIN286 = &H10
  329. Global Const WF_ENHANCED = &H20
  330. Global Const WF_WIN386 = &H20
  331. Global Const WF_CPU086 = &H40
  332. Global Const WF_CPU186 = &H80
  333. Global Const WF_LARGEFRAME = &H100
  334. Global Const WF_SMALLFRAME = &H200
  335. Global Const WF_80x87 = &H400
  336.  
  337. '  WEP fSystemExit flag values
  338. Global Const WEP_SYSTEM_EXIT = 1
  339. Global Const WEP_FREE_DLL = 0
  340.  
  341. '  OEM Resource Ordinal Numbers
  342. Global Const OBM_CLOSE = 32754
  343. Global Const OBM_UPARROW = 32753
  344. Global Const OBM_DNARROW = 32752
  345. Global Const OBM_RGARROW = 32751
  346. Global Const OBM_LFARROW = 32750
  347. Global Const OBM_REDUCE = 32749
  348. Global Const OBM_ZOOM = 32748
  349. Global Const OBM_RESTORE = 32747
  350. Global Const OBM_REDUCED = 32746
  351. Global Const OBM_ZOOMD = 32745
  352. Global Const OBM_RESTORED = 32744
  353. Global Const OBM_UPARROWD = 32743
  354. Global Const OBM_DNARROWD = 32742
  355. Global Const OBM_RGARROWD = 32741
  356. Global Const OBM_LFARROWD = 32740
  357. Global Const OBM_MNARROW = 32739
  358. Global Const OBM_COMBO = 32738
  359.  
  360. Global Const OBM_OLD_CLOSE = 32767
  361. Global Const OBM_SIZE = 32766
  362. Global Const OBM_OLD_UPARROW = 32765
  363. Global Const OBM_OLD_DNARROW = 32764
  364. Global Const OBM_OLD_RGARROW = 32763
  365. Global Const OBM_OLD_LFARROW = 32762
  366. Global Const OBM_BTSIZE = 32761
  367. Global Const OBM_CHECK = 32760
  368. Global Const OBM_CHECKBOXES = 32759
  369. Global Const OBM_BTNCORNERS = 32758
  370. Global Const OBM_OLD_REDUCE = 32757
  371. Global Const OBM_OLD_ZOOM = 32756
  372. Global Const OBM_OLD_RESTORE = 32755
  373.  
  374. Global Const OCR_NORMAL = 32512
  375. Global Const OCR_IBEAM = 32513
  376. Global Const OCR_WAIT = 32514
  377. Global Const OCR_CROSS = 32515
  378. Global Const OCR_UP = 32516
  379. Global Const OCR_SIZE = 32640
  380. Global Const OCR_ICON = 32641
  381. Global Const OCR_SIZENWSE = 32642
  382. Global Const OCR_SIZENESW = 32643
  383. Global Const OCR_SIZEWE = 32644
  384. Global Const OCR_SIZENS = 32645
  385. Global Const OCR_SIZEALL = 32646
  386. Global Const OCR_ICOCUR = 32647
  387.  
  388. Global Const OIC_SAMPLE = 32512
  389. Global Const OIC_HAND = 32513
  390. Global Const OIC_QUES = 32514
  391. Global Const OIC_BANG = 32515
  392. Global Const OIC_NOTE = 32516
  393.  
  394.  
  395. ' --------------------------------------------------------------------------
  396. '   GDI Section
  397. ' --------------------------------------------------------------------------
  398.  
  399. '  Binary raster ops
  400. Global Const R2_BLACK = 1    '   0
  401. Global Const R2_NOTMERGEPEN = 2    '  DPon
  402. Global Const R2_MASKNOTPEN = 3    '  DPna
  403. Global Const R2_NOTCOPYPEN = 4    '  PN
  404. Global Const R2_MASKPENNOT = 5    '  PDna
  405. Global Const R2_NOT = 6    '  Dn
  406. Global Const R2_XORPEN = 7    '  DPx
  407. Global Const R2_NOTMASKPEN = 8    '  DPan
  408. Global Const R2_MASKPEN = 9    '  DPa
  409. Global Const R2_NOTXORPEN = 10    '  DPxn
  410. Global Const R2_NOP = 11    '  D
  411. Global Const R2_MERGENOTPEN = 12    '  DPno
  412. Global Const R2_COPYPEN = 13    '  P
  413. Global Const R2_MERGEPENNOT = 14    '  PDno
  414. Global Const R2_MERGEPEN = 15    '  DPo
  415. Global Const R2_WHITE = 16    '   1
  416.  
  417. '   Ternary raster operations
  418. Global Const SRCCOPY = &HCC0020    ' (DWORD) dest = source
  419. Global Const SRCPAINT = &HEE0086    ' (DWORD) dest = source OR dest
  420. Global Const SRCAND = &H8800C6    ' (DWORD) dest = source AND dest
  421. Global Const SRCINVERT = &H660046    ' (DWORD) dest = source XOR dest
  422. Global Const SRCERASE = &H440328    ' (DWORD) dest = source AND (NOT dest )
  423. Global Const NOTSRCCOPY = &H330008    ' (DWORD) dest = (NOT source)
  424. Global Const NOTSRCERASE = &H1100A6    ' (DWORD) dest = (NOT src) AND (NOT dest)
  425. Global Const MERGECOPY = &HC000CA    ' (DWORD) dest = (source AND pattern)
  426. Global Const MERGEPAINT = &HBB0226    ' (DWORD) dest = (NOT source) OR dest
  427. Global Const PATCOPY = &HF00021    ' (DWORD) dest = pattern
  428. Global Const PATPAINT = &HFB0A09    ' (DWORD) dest = DPSnoo
  429. Global Const PATINVERT = &H5A0049    ' (DWORD) dest = pattern XOR dest
  430. Global Const DSTINVERT = &H550009    ' (DWORD) dest = (NOT dest)
  431. Global Const BLACKNESS = &H42&    ' (DWORD) dest = BLACK
  432. Global Const WHITENESS = &HFF0062    ' (DWORD) dest = WHITE
  433.  
  434.  
  435. '  StretchBlt() Modes
  436. Global Const BLACKONWHITE = 1
  437. Global Const WHITEONBLACK = 2
  438. Global Const COLORONCOLOR = 3
  439.  
  440. '  PolyFill() Modes
  441. Global Const ALTERNATE = 1
  442. Global Const WINDING = 2
  443.  
  444. '  Text Alignment Options
  445. Global Const TA_NOUPDATECP = 0
  446. Global Const TA_UPDATECP = 1
  447.  
  448. Global Const TA_LEFT = 0
  449. Global Const TA_RIGHT = 2
  450. Global Const TA_CENTER = 6
  451.  
  452. Global Const TA_TOP = 0
  453. Global Const TA_BOTTOM = 8
  454. Global Const TA_BASELINE = 24
  455.  
  456. Global Const ETO_GRAYED = 1
  457. Global Const ETO_OPAQUE = 2
  458. Global Const ETO_CLIPPED = 4
  459.  
  460. Global Const ASPECT_FILTERING = &H1
  461.  
  462. '  Metafile Functions
  463. Global Const META_SETBKCOLOR = &H201
  464. Global Const META_SETBKMODE = &H102
  465. Global Const META_SETMAPMODE = &H103
  466. Global Const META_SETROP2 = &H104
  467. Global Const META_SETRELABS = &H105
  468. Global Const META_SETPOLYFILLMODE = &H106
  469. Global Const META_SETSTRETCHBLTMODE = &H107
  470. Global Const META_SETTEXTCHAREXTRA = &H108
  471. Global Const META_SETTEXTCOLOR = &H209
  472. Global Const META_SETTEXTJUSTIFICATION = &H20A
  473. Global Const META_SETWINDOWORG = &H20B
  474. Global Const META_SETWINDOWEXT = &H20C
  475. Global Const META_SETVIEWPORTORG = &H20D
  476. Global Const META_SETVIEWPORTEXT = &H20E
  477. Global Const META_OFFSETWINDOWORG = &H20F
  478. Global Const META_SCALEWINDOWEXT = &H400
  479. Global Const META_OFFSETVIEWPORTORG = &H211
  480. Global Const META_SCALEVIEWPORTEXT = &H412
  481. Global Const META_LINETO = &H213
  482. Global Const META_MOVETO = &H214
  483. Global Const META_EXCLUDECLIPRECT = &H415
  484. Global Const META_INTERSECTCLIPRECT = &H416
  485. Global Const META_ARC = &H817
  486. Global Const META_ELLIPSE = &H418
  487. Global Const META_FLOODFILL = &H419
  488. Global Const META_PIE = &H81A
  489. Global Const META_RECTANGLE = &H41B
  490. Global Const META_ROUNDRECT = &H61C
  491. Global Const META_PATBLT = &H61D
  492. Global Const META_SAVEDC = &H1E
  493. Global Const META_SETPIXEL = &H41F
  494. Global Const META_OFFSETCLIPRGN = &H220
  495. Global Const META_TEXTOUT = &H521
  496. Global Const META_BITBLT = &H922
  497. Global Const META_STRETCHBLT = &HB23
  498. Global Const META_POLYGON = &H324
  499. Global Const META_POLYLINE = &H325
  500. Global Const META_ESCAPE = &H626
  501. Global Const META_RESTOREDC = &H127
  502. Global Const META_FILLREGION = &H228
  503. Global Const META_FRAMEREGION = &H429
  504. Global Const META_INVERTREGION = &H12A
  505. Global Const META_PAINTREGION = &H12B
  506. Global Const META_SELECTCLIPREGION = &H12C
  507. Global Const META_SELECTOBJECT = &H12D
  508. Global Const META_SETTEXTALIGN = &H12E
  509. Global Const META_DRAWTEXT = &H62F
  510.  
  511. Global Const META_CHORD = &H830
  512. Global Const META_SETMAPPERFLAGS = &H231
  513. Global Const META_EXTTEXTOUT = &Ha32
  514. Global Const META_SETDIBTODEV = &Hd33
  515. Global Const META_SELECTPALETTE = &H234
  516. Global Const META_REALIZEPALETTE = &H35
  517. Global Const META_ANIMATEPALETTE = &H436
  518. Global Const META_SETPALENTRIES = &H37
  519. Global Const META_POLYPOLYGON = &H538
  520. Global Const META_RESIZEPALETTE = &H139
  521.  
  522. Global Const META_DIBBITBLT = &H940
  523. Global Const META_DIBSTRETCHBLT = &Hb41
  524. Global Const META_DIBCREATEPATTERNBRUSH = &H142
  525. Global Const META_STRETCHDIB = &Hf43
  526.  
  527. Global Const META_DELETEOBJECT = &H1f0
  528.  
  529. Global Const META_CREATEPALETTE = &Hf7
  530. Global Const META_CREATEBRUSH = &HF8
  531. Global Const META_CREATEPATTERNBRUSH = &H1F9
  532. Global Const META_CREATEPENINDIRECT = &H2FA
  533. Global Const META_CREATEFONTINDIRECT = &H2FB
  534. Global Const META_CREATEBRUSHINDIRECT = &H2FC
  535. Global Const META_CREATEBITMAPINDIRECT = &H2FD
  536. Global Const META_CREATEBITMAP = &H6FE
  537. Global Const META_CREATEREGION = &H6FF
  538.  
  539.  
  540. '  GDI Escapes
  541. Global Const NEWFRAME = 1
  542. Global Const ABORTDOC = 2
  543. Global Const NEXTBAND = 3
  544. Global Const SETCOLORTABLE = 4
  545. Global Const GETCOLORTABLE = 5
  546. Global Const FLUSHOUTPUT = 6
  547. Global Const DRAFTMODE = 7
  548. Global Const QUERYESCSUPPORT = 8
  549. Global Const SETABORTPROC = 9
  550. Global Const STARTDOC = 10
  551. Global Const ENDDOCAPI = 11
  552. Global Const GETPHYSPAGESIZE = 12
  553. Global Const GETPRINTINGOFFSET = 13
  554. Global Const GETSCALINGFACTOR = 14
  555. Global Const MFCOMMENT = 15
  556. Global Const GETPENWIDTH = 16
  557. Global Const SETCOPYCOUNT = 17
  558. Global Const SELECTPAPERSOURCE = 18
  559. Global Const DEVICEDATA = 19
  560. Global Const PASSTHROUGH = 19
  561. Global Const GETTECHNOLGY = 20
  562. Global Const GETTECHNOLOGY = 20
  563. Global Const SETENDCAP = 21
  564. Global Const SETLINEJOIN = 22
  565. Global Const SETMITERLIMIT = 23
  566. Global Const BANDINFO = 24
  567. Global Const DRAWPATTERNRECT = 25
  568. Global Const GETVECTORPENSIZE = 26
  569. Global Const GETVECTORBRUSHSIZE = 27
  570. Global Const ENABLEDUPLEX = 28
  571. Global Const GETSETPAPERBINS = 29
  572. Global Const GETSETPRINTORIENT = 30
  573. Global Const ENUMPAPERBINS = 31
  574. Global Const SETDIBSCALING = 32
  575. Global Const EPSPRINTING = 33
  576. Global Const ENUMPAPERMETRICS = 34
  577. Global Const GETSETPAPERMETRICS = 35
  578. Global Const POSTSCRIPT_DATA = 37
  579. Global Const POSTSCRIPT_IGNORE = 38
  580. Global Const GETEXTENDEDTEXTMETRICS = 256
  581. Global Const GETEXTENTTABLE = 257
  582. Global Const GETPAIRKERNTABLE = 258
  583. Global Const GETTRACKKERNTABLE = 259
  584. Global Const EXTTEXTOUT = 512
  585. Global Const ENABLERELATIVEWIDTHS = 768
  586. Global Const ENABLEPAIRKERNING = 769
  587. Global Const SETKERNTRACK = 770
  588. Global Const SETALLJUSTVALUES = 771
  589. Global Const SETCHARSET = 772
  590.  
  591. Global Const STRETCHBLT = 2048
  592. Global Const BEGIN_PATH = 4096
  593. Global Const CLIP_TO_PATH = 4097
  594. Global Const END_PATH = 4098
  595. Global Const EXT_DEVICE_CAPS = 4099
  596. Global Const RESTORE_CTM = 4100
  597. Global Const SAVE_CTM = 4101
  598. Global Const SET_ARC_DIRECTION = 4102
  599. Global Const SET_BACKGROUND_COLOR = 4103
  600. Global Const SET_POLY_MODE = 4104
  601. Global Const SET_SCREEN_ANGLE = 4105
  602. Global Const SET_SPREAD = 4106
  603. Global Const TRANSFORM_CTM = 4107
  604. Global Const SET_CLIP_BOX = 4108
  605. Global Const SET_BOUNDS = 4109
  606. Global Const SET_MIRROR_MODE = 4110
  607.  
  608. '  Spooler Error Codes
  609. Global Const SP_NOTREPORTED = &H4000
  610. Global Const SP_ERROR = (-1)
  611. Global Const SP_APPABORT = (-2)
  612. Global Const SP_USERABORT = (-3)
  613. Global Const SP_OUTOFDISK = (-4)
  614. Global Const SP_OUTOFMEMORY = (-5)
  615.  
  616. Global Const PR_JOBSTATUS = &H0
  617.  
  618. '  Bitmap Header Definition
  619. Type BITMAP '14 bytes
  620.     bmType As Integer
  621.     bmWidth As Integer
  622.     bmHeight As Integer
  623.     bmWidthBytes As Integer
  624.     bmPlanes As String * 1
  625.     bmBitsPixel As String * 1
  626.     bmBits As Long
  627. End Type
  628.  
  629. Type RGBTRIPLE 
  630.     rgbtBlue As String * 1
  631.     rgbtGreen As String * 1
  632.     rgbtRed As String * 1
  633. End Type
  634.  
  635. Type RGBQUAD
  636.     rgbBlue as String * 1
  637.     rgbGreen As String * 1
  638.     rgbRed As String * 1
  639.     rgbReserved As String * 1
  640. End Type
  641.  
  642. '  structures for defining DIBs
  643. Type BITMAPCOREHEADER '12 bytes
  644.     bcSize as Long
  645.     bcWidth As Integer
  646.     bcHeight As Integer
  647.     bcPlanes As Integer
  648.     bcBitCount As Integer
  649. End Type
  650.  
  651. Type BITMAPINFOHEADER '40 bytes
  652.     biSize As Long
  653.     biWidth As Long
  654.     biHeight As Long
  655.     biPlanes As Integer
  656.     biBitCount As Integer
  657.     biCompression As Long
  658.     biSizeImage As Long
  659.     biXPelsPerMeter As Long
  660.     biYPelsPerMeter As Long
  661.     biClrUsed As Long
  662.     biClrImportant As Long
  663. End Type
  664.  
  665. '  constants for the biCompression field
  666. Global Const BI_RGB = 0&
  667. Global Const BI_RLE8 = 1&
  668. Global Const BI_RLE4 = 2&
  669.  
  670. Type BITMAPINFO
  671.     bmiHeader as BITMAPINFOHEADER
  672.     bmiColors As String * 128 ' Array length is arbitrary; may be changed
  673. End Type
  674.  
  675. Type BITMAPCOREINFO
  676.     bmciHeader As BITMAPCOREHEADER
  677.     bmciColors As String * 96 ' Array length is arbitrary; may be changed
  678. End Type
  679.  
  680. Type BITMAPFILEHEADER
  681.     bfType As Integer
  682.     bfSize As Long
  683.     bfReserved1 As Integer
  684.     bfReserved2 As Integer
  685.     bfOffBits As Long
  686. End Type
  687.  
  688.  
  689. '  Clipboard Metafile Picture Structure
  690. Type HANDLETABLE
  691.     objectHandle As String * 512 ' Array length is arbitrary; may be changed
  692. End Type
  693.  
  694. Type METARECORD
  695.     rdSize As Long
  696.     rdFunction As Integer
  697.     rdParm As String * 512 ' Array length is arbitrary; may be changed
  698. End Type
  699.  
  700.  
  701. Type METAFILEPICT
  702.     mm As Integer
  703.     xExt As Integer
  704.     yExt As Integer
  705.     hMF As Integer
  706. End Type
  707.  
  708. Type METAHEADER
  709.     mtType As Integer
  710.     mtHeaderSize As Integer
  711.     mtVersion As Integer
  712.     mtSize As Long
  713.     mtNoObjects As Integer
  714.     mtMaxRecord As Long
  715.     mtNoParameters As Integer
  716. End Type
  717.  
  718. Type TEXTMETRIC
  719.     tmHeight As Integer
  720.     tmAscent As Integer
  721.     tmDescent As Integer
  722.     tmInternalLeading As Integer
  723.     tmExternalLeading As Integer
  724.     tmAveCharWidth As Integer
  725.     tmMaxCharWidth As Integer
  726.     tmWeight As Integer
  727.     tmItalic As String * 1
  728.     tmUnderlined As String * 1
  729.     tmStruckOut As String * 1
  730.     tmFirstChar As String * 1
  731.     tmLastChar As String * 1
  732.     tmDefaultChar As String * 1
  733.     tmBreakChar As String * 1
  734.     tmPitchAndFamily As String * 1
  735.     tmCharSet As String * 1
  736.     tmOverhang As Integer
  737.     tmDigitizedAspectX As Integer
  738.     tmDigitizedAspectY As Integer
  739. End Type
  740.  
  741. '  GDI Logical Objects:
  742.  
  743. '  Pel Array
  744. Type PELARRAY
  745.     paXCount As Integer
  746.     paYCount As Integer
  747.     paXExt As Integer
  748.     paYExt As Integer
  749.     paRGBs As Integer
  750. End Type
  751.  
  752. '  Logical Brush (or Pattern)
  753. Type LOGBRUSH
  754.     lbStyle As Integer
  755.     lbColor As Long
  756.     lbHatch As Integer
  757. End Type
  758.  
  759. '  Logical Pen
  760. Type LOGPEN
  761.     lopnStyle As Integer
  762.     lopnWidth As POINTAPI
  763.     lopnColor As Long
  764. End Type
  765.  
  766. Type PALETTEENTRY
  767.     peRed As String * 1
  768.     peGreen As String * 1
  769.     peBlue As String * 1
  770.     peFlags As String * 1
  771. End Type
  772.  
  773. '  Logical Palette
  774. Type LOGPALETTE
  775.     palVersion As Integer
  776.     palNumEntries As Integer
  777.     palPalEntry As String * 252 ' Array length is arbitrary; may be changed
  778. End Type
  779.  
  780. '  Logical Font
  781. Global Const LF_FACESIZE = 32
  782.  
  783. Type LOGFONT
  784.     lfHeight As Integer
  785.     lfWidth As Integer
  786.     lfEscapement As Integer
  787.     lfOrientation As Integer
  788.     lfWeight As Integer
  789.     lfItalic As String * 1
  790.     lfUnderline As String * 1
  791.     lfStrikeOut As String * 1
  792.     lfCharSet As String * 1
  793.     lfOutPrecision As String * 1
  794.     lfClipPrecision As String * 1
  795.     lfQuality As String * 1
  796.     lfPitchAndFamily As String * 1
  797.     lfFaceName As String * LF_FACESIZE
  798. End Type
  799.  
  800. Global Const OUT_DEFAULT_PRECIS = 0
  801. Global Const OUT_STRING_PRECIS = 1
  802. Global Const OUT_CHARACTER_PRECIS = 2
  803. Global Const OUT_STROKE_PRECIS = 3
  804.  
  805. Global Const CLIP_DEFAULT_PRECIS = 0
  806. Global Const CLIP_CHARACTER_PRECIS = 1
  807. Global Const CLIP_STROKE_PRECIS = 2
  808.  
  809. Global Const DEFAULT_QUALITY = 0
  810. Global Const DRAFT_QUALITY = 1
  811. Global Const PROOF_QUALITY = 2
  812.  
  813. Global Const DEFAULT_PITCH = 0
  814. Global Const FIXED_PITCH = 1
  815. Global Const VARIABLE_PITCH = 2
  816.  
  817. Global Const ANSI_CHARSET = 0
  818. Global Const SYMBOL_CHARSET = 2
  819. Global Const SHIFTJIS_CHARSET = 128
  820. Global Const OEM_CHARSET = 255
  821.  
  822. '  Font Families
  823. '
  824. Global Const FF_DONTCARE = 0    '  Don't care or don't know.
  825. Global Const FF_ROMAN = 16    '  Variable stroke width, serifed.
  826.  
  827. '  Times Roman, Century Schoolbook, etc.
  828. Global Const FF_SWISS = 32    '  Variable stroke width, sans-serifed.
  829.  
  830. '  Helvetica, Swiss, etc.
  831. Global Const FF_MODERN = 48    '  Constant stroke width, serifed or sans-serifed.
  832.  
  833. '  Pica, Elite, Courier, etc.
  834. Global Const FF_SCRIPT = 64    '  Cursive, etc.
  835. Global Const FF_DECORATIVE = 80    '  Old English, etc.
  836.  
  837. '  Font Weights
  838. Global Const FW_DONTCARE = 0
  839. Global Const FW_THIN = 100
  840. Global Const FW_EXTRALIGHT = 200
  841. Global Const FW_LIGHT = 300
  842. Global Const FW_NORMAL = 400
  843. Global Const FW_MEDIUM = 500
  844. Global Const FW_SEMIBOLD = 600
  845. Global Const FW_BOLD = 700
  846. Global Const FW_EXTRABOLD = 800
  847. Global Const FW_HEAVY = 900
  848.  
  849. Global Const FW_ULTRALIGHT = FW_EXTRALIGHT
  850. Global Const FW_REGULAR = FW_NORMAL
  851. Global Const FW_DEMIBOLD = FW_SEMIBOLD
  852. Global Const FW_ULTRABOLD = FW_EXTRABOLD
  853. Global Const FW_BLACK = FW_HEAVY
  854.  
  855. '  Background Modes
  856. Global Const TRANSPARENT = 1
  857. Global Const OPAQUE = 2
  858.  
  859. '  Mapping Modes
  860. Global Const MM_TEXT = 1
  861. Global Const MM_LOMETRIC = 2
  862. Global Const MM_HIMETRIC = 3
  863. Global Const MM_LOENGLISH = 4
  864. Global Const MM_HIENGLISH = 5
  865. Global Const MM_TWIPS = 6
  866. Global Const MM_ISOTROPIC = 7
  867. Global Const MM_ANISOTROPIC = 8
  868.  
  869. '  Coordinate Modes
  870. Global Const ABSOLUTE = 1
  871. Global Const RELATIVE = 2
  872.  
  873. '  Stock Logical Objects
  874. Global Const WHITE_BRUSH = 0
  875. Global Const LTGRAY_BRUSH = 1
  876. Global Const GRAY_BRUSH = 2
  877. Global Const DKGRAY_BRUSH = 3
  878. Global Const BLACK_BRUSH = 4
  879. Global Const NULL_BRUSH = 5
  880. Global Const HOLLOW_BRUSH = NULL_BRUSH
  881. Global Const WHITE_PEN = 6
  882. Global Const BLACK_PEN = 7
  883. Global Const NULL_PEN = 8
  884. Global Const OEM_FIXED_FONT = 10
  885. Global Const ANSI_FIXED_FONT = 11
  886. Global Const ANSI_VAR_FONT = 12
  887. Global Const SYSTEM_FONT = 13
  888. Global Const DEVICE_DEFAULT_FONT = 14
  889. Global Const DEFAULT_PALETTE = 15
  890. Global Const SYSTEM_FIXED_FONT = 16
  891.  
  892. '  Brush Styles
  893. Global Const BS_SOLID = 0
  894. Global Const BS_NULL = 1
  895. Global Const BS_HOLLOW = BS_NULL
  896. Global Const BS_HATCHED = 2
  897. Global Const BS_PATTERN = 3
  898. Global Const BS_INDEXED = 4
  899. Global Const BS_DIBPATTERN = 5
  900.  
  901. '  Hatch Styles
  902. Global Const HS_HORIZONTAL = 0    '  -----
  903. Global Const HS_VERTICAL = 1    '  |||||
  904. Global Const HS_FDIAGONAL = 2    '  \\\\\
  905. Global Const HS_BDIAGONAL = 3    '  /////
  906. Global Const HS_CROSS = 4    '  +++++
  907. Global Const HS_DIAGCROSS = 5    '  xxxxx
  908.  
  909. '  Pen Styles
  910. Global Const PS_SOLID = 0
  911. Global Const PS_DASH = 1    '  -------
  912. Global Const PS_DOT = 2    '  .......
  913. Global Const PS_DASHDOT = 3    '  _._._._
  914. Global Const PS_DASHDOTDOT = 4    '  _.._.._
  915. Global Const PS_NULL = 5
  916. Global Const PS_INSIDEFRAME = 6
  917.  
  918. '  Device Parameters for GetDeviceCaps()
  919. Global Const DRIVERVERSION = 0    '  Device driver version
  920. Global Const TECHNOLOGY = 2    '  Device classification
  921. Global Const HORZSIZE = 4    '  Horizontal size in millimeters
  922. Global Const VERTSIZE = 6    '  Vertical size in millimeters
  923. Global Const HORZRES = 8    '  Horizontal width in pixels
  924. Global Const VERTRES = 10    '  Vertical width in pixels
  925. Global Const BITSPIXEL = 12    '  Number of bits per pixel
  926. Global Const PLANES = 14    '  Number of planes
  927. Global Const NUMBRUSHES = 16    '  Number of brushes the device has
  928. Global Const NUMPENS = 18    '  Number of pens the device has
  929. Global Const NUMMARKERS = 20    '  Number of markers the device has
  930. Global Const NUMFONTS = 22    '  Number of fonts the device has
  931. Global Const NUMCOLORS = 24    '  Number of colors the device supports
  932. Global Const PDEVICESIZE = 26    '  Size required for device descriptor
  933. Global Const CURVECAPS = 28    '  Curve capabilities
  934. Global Const LINECAPS = 30    '  Line capabilities
  935. Global Const POLYGONALCAPS = 32    '  Polygonal capabilities
  936. Global Const TEXTCAPS = 34    '  Text capabilities
  937. Global Const CLIPCAPS = 36    '  Clipping capabilities
  938. Global Const RASTERCAPS = 38    '  Bitblt capabilities
  939. Global Const ASPECTX = 40    '  Length of the X leg
  940. Global Const ASPECTY = 42    '  Length of the Y leg
  941. Global Const ASPECTXY = 44    '  Length of the hypotenuse
  942.  
  943. Global Const LOGPIXELSX = 88    '  Logical pixels/inch in X
  944. Global Const LOGPIXELSY = 90    '  Logical pixels/inch in Y
  945.  
  946. Global Const SIZEPALETTE = 104    '  Number of entries in physical palette
  947. Global Const NUMRESERVED = 106    '  Number of reserved entries in palette
  948. Global Const COLORRES = 108    '  Actual color resolution
  949.  
  950.  
  951. '  Device Capability Masks:
  952.  
  953. '  Device Technologies
  954. Global Const DT_PLOTTER = 0    '  Vector plotter
  955. Global Const DT_RASDISPLAY = 1    '  Raster display
  956. Global Const DT_RASPRINTER = 2    '  Raster printer
  957. Global Const DT_RASCAMERA = 3    '  Raster camera
  958. Global Const DT_CHARSTREAM = 4    '  Character-stream, PLP
  959. Global Const DT_METAFILE = 5    '  Metafile, VDM
  960. Global Const DT_DISPFILE = 6    '  Display-file
  961.  
  962. '  Curve Capabilities
  963. Global Const CC_NONE = 0    '  Curves not supported
  964. Global Const CC_CIRCLES = 1    '  Can do circles
  965. Global Const CC_PIE = 2    '  Can do pie wedges
  966. Global Const CC_CHORD = 4    '  Can do chord arcs
  967. Global Const CC_ELLIPSES = 8    '  Can do ellipese
  968. Global Const CC_WIDE = 16    '  Can do wide lines
  969. Global Const CC_STYLED = 32    '  Can do styled lines
  970. Global Const CC_WIDESTYLED = 64    '  Can do wide styled lines
  971. Global Const CC_INTERIORS = 128    '  Can do interiors
  972.  
  973. '  Line Capabilities
  974. Global Const LC_NONE = 0    '  Lines not supported
  975. Global Const LC_POLYLINE = 2    '  Can do polylines
  976. Global Const LC_MARKER = 4    '  Can do markers
  977. Global Const LC_POLYMARKER = 8    '  Can do polymarkers
  978. Global Const LC_WIDE = 16    '  Can do wide lines
  979. Global Const LC_STYLED = 32    '  Can do styled lines
  980. Global Const LC_WIDESTYLED = 64    '  Can do wide styled lines
  981. Global Const LC_INTERIORS = 128    '  Can do interiors
  982.  
  983. '  Polygonal Capabilities
  984. Global Const PC_NONE = 0    '  Polygonals not supported
  985. Global Const PC_POLYGON = 1    '  Can do polygons
  986. Global Const PC_RECTANGLE = 2    '  Can do rectangles
  987. Global Const PC_WINDPOLYGON = 4    '  Can do winding polygons
  988. Global Const PC_TRAPEZOID = 4    '  Can do trapezoids
  989. Global Const PC_SCANLINE = 8    '  Can do scanlines
  990. Global Const PC_WIDE = 16    '  Can do wide borders
  991. Global Const PC_STYLED = 32    '  Can do styled borders
  992. Global Const PC_WIDESTYLED = 64    '  Can do wide styled borders
  993. Global Const PC_INTERIORS = 128    '  Can do interiors
  994.  
  995. '  Polygonal Capabilities
  996. Global Const CP_NONE = 0    '  No clipping of output
  997. Global Const CP_RECTANGLE = 1    '  Output clipped to rects
  998.  
  999. '  Text Capabilities
  1000. Global Const TC_OP_CHARACTER = &H1    '  Can do OutputPrecision    CHARACTER
  1001. Global Const TC_OP_STROKE = &H2    '  Can do OutputPrecision    STROKE
  1002. Global Const TC_CP_STROKE = &H4    '  Can do ClipPrecision    STROKE
  1003. Global Const TC_CR_90 = &H8    '  Can do CharRotAbility    90
  1004. Global Const TC_CR_ANY = &H10    '  Can do CharRotAbility    ANY
  1005. Global Const TC_SF_X_YINDEP = &H20    '  Can do ScaleFreedom    X_YINDEPENDENT
  1006. Global Const TC_SA_DOUBLE = &H40    '  Can do ScaleAbility    DOUBLE
  1007. Global Const TC_SA_INTEGER = &H80    '  Can do ScaleAbility    INTEGER
  1008. Global Const TC_SA_CONTIN = &H100    '  Can do ScaleAbility    CONTINUOUS
  1009. Global Const TC_EA_DOUBLE = &H200    '  Can do EmboldenAbility    DOUBLE
  1010. Global Const TC_IA_ABLE = &H400    '  Can do ItalisizeAbility    ABLE
  1011. Global Const TC_UA_ABLE = &H800    '  Can do UnderlineAbility    ABLE
  1012. Global Const TC_SO_ABLE = &H1000    '  Can do StrikeOutAbility    ABLE
  1013. Global Const TC_RA_ABLE = &H2000    '  Can do RasterFontAble    ABLE
  1014. Global Const TC_VA_ABLE = &H4000    '  Can do VectorFontAble    ABLE
  1015. Global Const TC_RESERVED = &H8000
  1016.  
  1017. '  Raster Capabilities
  1018. Global Const RC_BITBLT = 1    '  Can do standard BLT.
  1019. Global Const RC_BANDING = 2    '  Device requires banding support
  1020. Global Const RC_SCALING = 4    '  Device requires scaling support
  1021. Global Const RC_BITMAP64 = 8    '  Device can support >64K bitmap
  1022. Global Const RC_GDI20_OUTPUT = &H10    '  has 2.0 output calls
  1023. Global Const RC_DI_BITMAP = &H80    '  supports DIB to memory
  1024. Global Const RC_PALETTE = &H100    '  supports a palette
  1025. Global Const RC_DIBTODEV = &H200    '  supports DIBitsToDevice
  1026. Global Const RC_BIGFONT = &H400    '  supports >64K fonts
  1027. Global Const RC_STRETCHBLT = &H800    '  supports StretchBlt
  1028. Global Const RC_FLOODFILL = &H1000    '  supports FloodFill
  1029. Global Const RC_STRETCHDIB = &H2000    '  supports StretchDIBits
  1030.  
  1031. '  palette entry flags
  1032. Global Const PC_RESERVED = &H1    '  palette index used for animation
  1033. Global Const PC_EXPLICIT = &H2    '  palette index is explicit to device
  1034. Global Const PC_NOCOLLAPSE = &H4    '  do not match color to system palette
  1035.  
  1036. '  DIB color table identifiers
  1037. Global Const DIB_RGB_COLORS = 0    '  color table in RGBTriples
  1038. Global Const DIB_PAL_COLORS = 1    '  color table in palette indices
  1039.  
  1040. '  constants for Get/SetSystemPaletteUse()
  1041. Global Const SYSPAL_STATIC = 1
  1042. Global Const SYSPAL_NOSTATIC = 2
  1043.  
  1044. '  constants for CreateDIBitmap
  1045. Global Const CBM_INIT = &H4&    '  initialize bitmap
  1046.  
  1047. '  DrawText() Format Flags
  1048. Global Const DT_TOP = &H0
  1049. Global Const DT_LEFT = &H0
  1050. Global Const DT_CENTER = &H1
  1051. Global Const DT_RIGHT = &H2
  1052. Global Const DT_VCENTER = &H4
  1053. Global Const DT_BOTTOM = &H8
  1054. Global Const DT_WORDBREAK = &H10
  1055. Global Const DT_SINGLELINE = &H20
  1056. Global Const DT_EXPANDTABS = &H40
  1057. Global Const DT_TABSTOP = &H80
  1058. Global Const DT_NOCLIP = &H100
  1059. Global Const DT_EXTERNALLEADING = &H200
  1060. Global Const DT_CALCRECT = &H400
  1061. Global Const DT_NOPREFIX = &H800
  1062. Global Const DT_INTERNAL = &H1000
  1063.  
  1064. Declare Function DrawText Lib "GDI" (ByVal hDC As Integer, ByVal lpStr As String, ByVal nCount As Integer, lpRect As RECT, ByVal wFormat As Integer) As Integer
  1065. Declare Function DrawIcon Lib "GDI" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal hIcon As Integer) As Integer
  1066.  
  1067. '  ExtFloodFill style flags
  1068. Global Const FLOODFILLBORDER = 0
  1069. Global Const FLOODFILLSURFACE = 1
  1070.  
  1071. Declare Function GetWindowDC Lib "GDI" (ByVal hWnd As Integer) As Integer
  1072. Declare Function GetDC Lib "User" (ByVal hWnd As Integer) As Integer
  1073. Declare Function ReleaseDC Lib "GDI" (ByVal hWnd As Integer, ByVal hDC As Integer) As Integer
  1074. Declare Function CreateDC Lib "GDI" (ByVal lpDriverName As String, ByVal lpDeviceName As String, ByVal lpOutput As String, ByVal lpInitData As String) As Integer
  1075. Declare Function CreateIC Lib "GDI" (ByVal lpDriverName As String, ByVal lpDeviceName As String, ByVal lpOutput As String, ByVal lpInitData As String) As Integer
  1076. Declare Function CreateCompatibleDC Lib "GDI" (ByVal hDC As Integer) As Integer
  1077. Declare Function DeleteDC Lib "GDI" (ByVal hDC As Integer) As Integer
  1078. Declare Function SaveDC Lib "GDI" (ByVal hDC As Integer) As Integer
  1079. Declare Function RestoreDC Lib "GDI" (ByVal hDC As Integer, ByVal nSavedDC As Integer) As Integer
  1080. Declare Function MoveTo Lib "GDI" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer) As Long
  1081. Declare Function GetCurrentPosition Lib "GDI" (ByVal hDC As Integer) As Long
  1082. Declare Function LineTo Lib "GDI" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer) As Integer
  1083. Declare Function GetDCOrg Lib "GDI" (ByVal hDC As Integer) As Long
  1084.  
  1085. Declare Function MulDiv Lib "GDI" (ByVal nNumber As Integer, ByVal nNumerator As Integer, ByVal nDenominator As Integer) As Integer
  1086.  
  1087. Declare Function ExtTextOut Lib "GDI" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal wOptions As Integer, lpRect As Any, ByVal lpString As String, ByVal nCount As Integer, lpDx As Any) As Integer
  1088.  
  1089. Declare Function Polyline Lib "GDI" (ByVal hDC As Integer, lpPoints As POINTAPI, ByVal nCount As Integer) As Integer
  1090. Declare Function Polygon Lib "GDI" (ByVal hDC As Integer, lpPoints As POINTAPI, ByVal nCount As Integer) As Integer
  1091. Declare Function PolyPolygon Lib "GDI" (ByVal hDC As Integer, lpPoints As POINTAPI, lpPolyCounts As Integer, ByVal nCount As Integer) As Integer
  1092.  
  1093. Declare Function Rectangle Lib "GDI" (ByVal hDC As Integer, ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer) As Integer
  1094. Declare Function RoundRect Lib "GDI" (ByVal hDC As Integer, ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer, ByVal X3 As Integer, ByVal Y3 As Integer) As Integer
  1095. Declare Function Ellipse Lib "GDI" (ByVal hDC As Integer, ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer) As Integer
  1096. Declare Function Arc Lib "GDI" (ByVal hDC As Integer, ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer, ByVal X3 As Integer, ByVal Y3 As Integer, ByVal X4 As Integer, ByVal Y4 As Integer) As Integer
  1097. Declare Function Chord Lib "GDI" (ByVal hDC As Integer, ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer, ByVal X3 As Integer, ByVal Y3 As Integer, ByVal X4 As Integer, ByVal Y4 As Integer) As Integer
  1098. Declare Function Pie Lib "GDI" (ByVal hDC As Integer, ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer, ByVal X3 As Integer, ByVal Y3 As Integer, ByVal X4 As Integer, ByVal Y4 As Integer) As Integer
  1099. Declare Function PatBlt Lib "GDI" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal dwRop As Long) As Integer
  1100. Declare Function BitBlt Lib "GDI" (ByVal hDestDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hSrcDC As Integer, ByVal XSrc As Integer, ByVal YSrc As Integer, ByVal dwRop As Long) As Integer
  1101. Declare Function StretchBlt% Lib "GDI" (ByVal hDC%, ByVal X%, ByVal Y%, ByVal nWidth%, ByVal nHeight%, ByVal hSrcDC%, ByVal XSrc%, ByVal YSrc%, ByVal nSrcWidth%, ByVal nSrcHeight%, ByVal dwRop&)
  1102. Declare Function TextOut Lib "GDI" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal lpString As String, ByVal nCount As Integer) As Integer
  1103. Declare Function TabbedTextOut Lib "GDI" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal lpString As String, ByVal nCount As Integer, ByVal nTabPositions As Integer, lpnTabStopPositions As Integer, ByVal nTabOrigin As Integer) As Long
  1104. Declare Function GetCharWidth Lib "GDI" (ByVal hDC As Integer, ByVal wFirstChar As Integer, ByVal wLastChar As Integer, lpBuffer As Integer) As Integer
  1105. Declare Function SetPixel Lib "GDI" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal crColor As Long) As Long
  1106. Declare Function GetPixel Lib "GDI" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer) As Long
  1107. Declare Function FloodFill Lib "GDI" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal crColor As Long) As Integer
  1108. Declare Function ExtFloodFill Lib "GDI" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal crColor As Long, ByVal wFillType As Integer) As Integer
  1109.  
  1110. Declare Function GetStockObject Lib "GDI" (ByVal nIndex As Integer) As Integer
  1111.  
  1112. Declare Function CreatePen Lib "GDI" (ByVal nPenStyle As Integer, ByVal nWidth As Integer, ByVal crColor As Long) As Integer
  1113. Declare Function CreatePenIndirect Lib "GDI" (lpLogPen As LOGPEN) As Integer
  1114.  
  1115. Declare Function CreateSolidBrush Lib "GDI" (ByVal crColor As Long) As Integer
  1116. Declare Function CreateHatchBrush Lib "GDI" (ByVal nIndex As Integer, ByVal crColor As Long) As Integer
  1117. Declare Function SetBrushOrg Lib "GDI" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer) As Long
  1118. Declare Function GetBrushOrg Lib "GDI" (ByVal hDC As Integer) As Long
  1119. Declare Function CreatePatternBrush Lib "GDI" (ByVal hBitmap As Integer) As Integer
  1120. Declare Function CreateBrushIndirect Lib "GDI" (lpLogBrush As LOGBRUSH) As Integer
  1121.  
  1122. Declare Function CreateBitmap Lib "GDI" (ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal nPlanes As Integer, ByVal nBitCount As Integer, ByVal lpBits As Any) As Integer
  1123. Declare Function CreateBitmapIndirect Lib "GDI" (lpBitmap As BITMAP) As Integer
  1124. Declare Function CreateCompatibleBitmap Lib "GDI" (ByVal hDC As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer) As Integer
  1125. Declare Function CreateDiscardableBitmap Lib "GDI" (ByVal hDC As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer) As Integer
  1126.  
  1127. Declare Function SetBitmapBits Lib "GDI" (ByVal hBitmap As Integer, ByVal dwCount As Long, ByVal lpBits As Any) As Long
  1128. Declare Function GetBitmapBits Lib "GDI" (ByVal hBitmap As Integer, ByVal dwCount As Long, ByVal lpBits As Any) As Long
  1129. Declare Function SetBitmapDimension Lib "GDI" (ByVal hBitmap As Integer, ByVal X As Integer, ByVal Y As Integer) As Long
  1130. Declare Function GetBitmapDimension Lib "GDI" (ByVal hBitmap As Integer) As Long
  1131.  
  1132. Declare Function CreateFont% Lib "GDI" (ByVal H%, ByVal W%, ByVal E%, ByVal O%, ByVal W%, ByVal I%, ByVal U%, ByVal S%, ByVal C%, ByVal OP%, ByVal CP%, ByVal Q%, ByVal PAF%, ByVal F$)
  1133. Declare Function CreateFontIndirect Lib "GDI" (lpLogFont As LOGFONT) As Integer
  1134.  
  1135. Declare Function SelectClipRgn Lib "GDI" (ByVal hDC As Integer, ByVal hRgn As Integer) As Integer
  1136. Declare Function CreateRectRgn Lib "GDI" (ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer) As Integer
  1137. Declare Sub SetRectRgn Lib "GDI" (ByVal hRgn As Integer, ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer)
  1138. Declare Function CreateRectRgnIndirect Lib "GDI" (lpRect As RECT) As Integer
  1139. Declare Function CreateEllipticRgnIndirect Lib "GDI" (lpRect As RECT) As Integer
  1140. Declare Function CreateEllipticRgn Lib "GDI" (ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer) As Integer
  1141. Declare Function CreatePolygonRgn Lib "GDI" (lpPoints As POINTAPI, ByVal nCount As Integer, ByVal nPolyFillMode As Integer) As Integer
  1142. Declare Function CreatePolyPolygonRgn Lib "GDI" (lpPoints As POINTAPI, lpPolyCounts As Integer, ByVal nCount As Integer, ByVal nPolyFillMode As Integer) As Integer
  1143. Declare Function CreateRoundRectRgn Lib "GDI" (ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer, ByVal X3 As Integer, ByVal Y3 As Integer) As Integer
  1144.  
  1145. Declare Function GetObject Lib "GDI" (ByVal hObject As Integer, ByVal nCount As Integer, ByVal lpObject As Long) As Integer
  1146. Declare Function DeleteObject Lib "GDI" (ByVal hObject As Integer) As Integer
  1147. Declare Function SelectObject Lib "GDI" (ByVal hDC As Integer, ByVal hObject As Integer) As Integer
  1148. Declare Function UnrealizeObject Lib "GDI" (ByVal hObject As Integer) As Integer
  1149.  
  1150. Declare Function SetBkColor Lib "GDI" (ByVal hDC As Integer, ByVal crColor As Long) As Long
  1151. Declare Function GetBkColor Lib "GDI" (ByVal hDC As Integer) As Long
  1152. Declare Function SetBkMode Lib "GDI" (ByVal hDC As Integer, ByVal nBkMode As Integer) As Integer
  1153. Declare Function GetBkMode Lib "GDI" (ByVal hDC As Integer) As Integer
  1154. Declare Function SetTextColor Lib "GDI" (ByVal hDC As Integer, ByVal crColor As Long) As Long
  1155. Declare Function GetTextColor Lib "GDI" (ByVal hDC As Integer) As Long
  1156. Declare Function SetTextAlign Lib "GDI" (ByVal hDC As Integer, ByVal wFlags As Integer) As Integer
  1157. Declare Function GetTextAlign Lib "GDI" (ByVal hDC As Integer) As Integer
  1158. Declare Function SetMapperFlags Lib "GDI" (ByVal hDC As Integer, ByVal dwFlag As Long) As Long
  1159. Declare Function GetAspectRatioFilter Lib "GDI" (ByVal hDC As Integer) As Long
  1160. Declare Function GetNearestColor Lib "GDI" (ByVal hDC As Integer, ByVal crColor As Long) As Long
  1161. Declare Function SetROP2 Lib "GDI" (ByVal hDC As Integer, ByVal nDrawMode As Integer) As Integer
  1162. Declare Function GetROP2 Lib "GDI" (ByVal hDC As Integer) As Integer
  1163. Declare Function SetStretchBltMode Lib "GDI" (ByVal hDC As Integer, ByVal nStretchMode As Integer) As Integer
  1164. Declare Function GetStretchBltMode Lib "GDI" (ByVal hDC As Integer) As Integer
  1165. Declare Function SetPolyFillMode Lib "GDI" (ByVal hDC As Integer, ByVal nPolyFillMode As Integer) As Integer
  1166. Declare Function GetPolyFillMode Lib "GDI" (ByVal hDC As Integer) As Integer
  1167. Declare Function SetMapMode Lib "GDI" (ByVal hDC As Integer, ByVal nMapMode As Integer) As Integer
  1168. Declare Function GetMapMode Lib "GDI" (ByVal hDC As Integer) As Integer
  1169. Declare Function SetWindowOrg Lib "GDI" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer) As Long
  1170. Declare Function GetWindowOrg Lib "GDI" (ByVal hDC As Integer) As Long
  1171. Declare Function SetWindowExt Lib "GDI" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer) As Long
  1172. Declare Function GetWindowExt Lib "GDI" (ByVal hDC As Integer) As Long
  1173. Declare Function SetViewportOrg Lib "GDI" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer) As Long
  1174. Declare Function GetViewportOrg Lib "GDI" (ByVal hDC As Integer) As Long
  1175. Declare Function SetViewportExt Lib "GDI" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer) As Long
  1176. Declare Function GetViewportExt Lib "GDI" (ByVal hDC As Integer) As Long
  1177. Declare Function OffsetViewportOrg Lib "GDI" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer) As Long
  1178. Declare Function ScaleViewportExt Lib "GDI" (ByVal hDC As Integer, ByVal Xnum As Integer, ByVal Xdenom As Integer, ByVal Ynum As Integer, ByVal Ydenom As Integer) As Long
  1179. Declare Function OffsetWindowOrg Lib "GDI" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer) As Long
  1180. Declare Function ScaleWindowExt Lib "GDI" (ByVal hDC As Integer, ByVal Xnum As Integer, ByVal Xdenom As Integer, ByVal Ynum As Integer, ByVal Ydenom As Integer) As Long
  1181.  
  1182. Declare Function GetClipBox Lib "GDI" (ByVal hDC As Integer, lpRect As RECT) As Integer
  1183. Declare Function IntersectClipRect Lib "GDI" (ByVal hDC As Integer, ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer) As Integer
  1184. Declare Function OffsetClipRgn Lib "GDI" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer) As Integer
  1185. Declare Function ExcludeClipRect Lib "GDI" (ByVal hDC As Integer, ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer) As Integer
  1186. Declare Function PtVisible Lib "GDI" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer) As Integer
  1187. Declare Function CombineRgn Lib "GDI" (ByVal hDestRgn As Integer, ByVal hSrcRgn1 As Integer, ByVal hSrcRgn2 As Integer, ByVal nCombineMode As Integer) As Integer
  1188. Declare Function EqualRgn Lib "GDI" (ByVal hSrcRgn1 As Integer, ByVal hSrcRgn2 As Integer) As Integer
  1189. Declare Function OffsetRgn Lib "GDI" (ByVal hRgn As Integer, ByVal X As Integer, ByVal Y As Integer) As Integer
  1190. Declare Function GetRgnBox Lib "GDI" (ByVal hRgn As Integer, lpRect As RECT) As Integer
  1191.  
  1192. Declare Function SetTextJustification Lib "GDI" (ByVal hDC As Integer, ByVal nBreakExtra As Integer, ByVal nBreakCount As Integer) As Integer
  1193. Declare Function GetTextExtent Lib "GDI" (ByVal hDC As Integer, ByVal lpString As String, ByVal nCount As Integer) As Long
  1194. Declare Function GetTabbedTextExtent Lib "GDI" (ByVal hDC As Integer, ByVal lpString As String, ByVal nCount As Integer, ByVal nTabPositions As Integer, lpnTabStopPositions As Integer) As Long
  1195. Declare Function SetTextCharacterExtra Lib "GDI" (ByVal hDC As Integer, ByVal nCharExtra As Integer) As Integer
  1196. Declare Function GetTextCharacterExtra Lib "GDI" (ByVal hDC As Integer) As Integer
  1197.  
  1198. Declare Function GetMetaFile Lib "GDI" (ByVal lpFilename As String) As Integer
  1199. Declare Function DeleteMetaFile Lib "GDI" (ByVal hMF As Integer) As Integer
  1200. Declare Function CopyMetaFile Lib "GDI" (ByVal hMF As Integer, ByVal lpFilename As String) As Integer
  1201.  
  1202. Declare Function PlayMetaFile Lib "GDI" (ByVal hDC As Integer, ByVal hMF As Integer) As Integer
  1203. Declare Sub PlayMetaFileRecord Lib "GDI" (ByVal hDC As Integer, lpHandletable As Integer, lpMetaRecord As METARECORD, ByVal nHandles As Integer)
  1204.  
  1205. Declare Function Escape Lib "GDI" (ByVal hDC As Integer, ByVal nEscape As Integer, ByVal nCount As Integer, lplnData As Any, lpOutData As Any) As Integer
  1206. Declare Function GetTextFace Lib "GDI" (ByVal hDC As Integer, ByVal nCount As Integer, ByVal lpFacename As String) As Integer
  1207.  
  1208. Declare Function GetTextMetrics Lib "GDI" (ByVal hDC As Integer, lpMetrics As TEXTMETRIC) As Integer
  1209.  
  1210. Declare Function GetDeviceCaps Lib "GDI" (ByVal hDC As Integer, ByVal nIndex As Integer) As Integer
  1211.  
  1212. Declare Function SetEnvironment Lib "GDI" (ByVal lpPortName As String, ByVal lpEnviron As String, ByVal nCount As Integer) As Integer
  1213. Declare Function GetEnvironment Lib "GDI" (ByVal lpPortName As String, lpEnviron As Any, ByVal nMaxCount As Integer) As Integer
  1214.  
  1215. Declare Function DPtoLP Lib "GDI" (ByVal hDC As Integer, lpPoints As POINTAPI, ByVal nCount As Integer) As Integer
  1216. Declare Function LPtoDP Lib "GDI" (ByVal hDC As Integer, lpPoints As POINTAPI, ByVal nCount As Integer) As Integer
  1217.  
  1218. Declare Function CreateMetaFile Lib "GDI" (lpString As Any) As Integer
  1219. Declare Function CloseMetaFile Lib "GDI" (ByVal hMF As Integer) As Integer
  1220. Declare Function GetMetaFileBits Lib "GDI" (ByVal hMF As Integer) As Integer
  1221. Declare Function SetMetaFileBits Lib "GDI" (ByVal hMem As Integer) As Integer
  1222.  
  1223. Declare Function SetDIBits Lib "GDI" (ByVal aHDC As Integer, ByVal hBitmap As Integer, ByVal nStartScan As Integer, ByVal nNumScans As Integer, ByVal lpBits As String, lpBI As BITMAPINFO, ByVal wUsage As Integer) As Integer
  1224.  
  1225. Declare Function GetDIBits Lib "GDI" (ByVal aHDC As Integer, ByVal hBitmap As Integer, ByVal nStartScan As Integer, ByVal nNumScans As Integer, ByVal lpBits As String, lpBI As BITMAPINFO, ByVal wUsage As Integer) As Integer
  1226.  
  1227. Declare Function SetDIBitsToDevice% Lib "GDI" (ByVal hDC#, ByVal X#, ByVal Y#, ByVal dX#, ByVal dY#, ByVal SrcX#, ByVal SrcY#, ByVal Scan#, ByVal NumScans#, ByVal Bits As String, BitsInfo As BITMAPINFO, ByVal wUsage#) 
  1228.  
  1229. Declare Function CreateDIBitmap Lib "GDI" (ByVal hDC As Integer, lpInfoHeader As BITMAPINFOHEADER, ByVal dwUsage As Long, ByVal lpInitBits As String, lpInitInfo As BITMAPINFO, ByVal wUsage As Integer) As Integer
  1230.  
  1231. Declare Function CreateDIBPatternBrush Lib "GDI" (ByVal hPackedDIB As Integer, ByVal wUsage As Integer) As Integer
  1232.  
  1233. Declare Function StretchDIBits# Lib "GDI" (ByVal hDC#, ByVal X#, ByVal Y#, ByVal dX#, ByVal dY#, ByVal SrcX#, ByVal SrcY#, ByVal wSrcWidth#, ByVal wSrcHeight#, ByVal lpBits As String, lpBitsInfo As BITMAPINFO, ByVal wUsage#, ByVal dwRop&)
  1234.  
  1235.  
  1236. Declare Function CreatePalette Lib "GDI" (lpLogPalette As LOGPALETTE) As Integer
  1237. Declare Function SelectPalette Lib "GDI" (ByVal hDC As Integer, ByVal hPalette as Integer, ByVal bForceBackground as Integer) As Integer
  1238. Declare Function RealizePalette Lib "GDI" (ByVal hDC As Integer) As Integer
  1239. Declare Function UpdateColors Lib "GDI" (ByVal hDC As Integer) As Integer
  1240. Declare Sub AnimatePalette Lib "GDI" (ByVal hPalette As Integer, ByVal wStartIndex As Integer, ByVal wNumEntries As Integer, lpPaletteColors As PALETTEENTRY)
  1241. Declare Function SetPaletteEntries Lib "GDI" (ByVal hPalette As Integer, ByVal wStartIndex As Integer, ByVal wNumEntries As Integer, lpPaletteEntries As PALETTEENTRY) As Integer
  1242. Declare Function GetPaletteEntries Lib "GDI" (ByVal hPalette As Integer, ByVal wStartIndex As Integer, ByVal wNumEntries As Integer, lpPaletteEntries As PALETTEENTRY) As Integer
  1243. Declare Function GetNearestPaletteIndex Lib "GDI" (ByVal hPalette As Integer, ByVal crColor As Long) As Integer
  1244. Declare Function ResizePalette Lib "GDI" (ByVal hPalette As Integer, ByVal nNumEntries As Integer) As Integer
  1245.  
  1246. Declare Function GetSystemPaletteEntries Lib "GDI" (ByVal hDC As Integer, ByVal wStartIndex As Integer, ByVal wNumEntries As Integer, lpPaletteEntries As PALETTEENTRY) As Integer
  1247. Declare Function GetSystemPaletteUse Lib "GDI" (ByVal hDC As Integer) As Integer
  1248. Declare Function SetSystemPaletteUse Lib "GDI" (ByVal hDC As Integer, ByVal wUsage As Integer) As Integer
  1249.  
  1250.  
  1251. ' --------------------------------------------------------------------------
  1252. '     USER Section
  1253. ' --------------------------------------------------------------------------
  1254.  
  1255. Declare Function wvsprintf Lib "User" (ByVal lpOutput As String, ByVal lpFormat As String, lpArglist As Integer) As Integer
  1256.  
  1257. '  Scroll Bar Constants
  1258. Global Const SB_HORZ = 0
  1259. Global Const SB_VERT = 1
  1260. Global Const SB_CTL = 2
  1261. Global Const SB_BOTH = 3
  1262.  
  1263. '  Scroll Bar Commands
  1264. Global Const SB_LINEUP = 0
  1265. Global Const SB_LINEDOWN = 1
  1266. Global Const SB_PAGEUP = 2
  1267. Global Const SB_PAGEDOWN = 3
  1268. Global Const SB_THUMBPOSITION = 4
  1269. Global Const SB_THUMBTRACK = 5
  1270. Global Const SB_TOP = 6
  1271. Global Const SB_BOTTOM = 7
  1272. Global Const SB_ENDSCROLL = 8
  1273.  
  1274. '  ShowWindow() Commands
  1275. Global Const SW_HIDE = 0
  1276. Global Const SW_SHOWNORMAL = 1
  1277. Global Const SW_NORMAL = 1
  1278. Global Const SW_SHOWMINIMIZED = 2
  1279. Global Const SW_SHOWMAXIMIZED = 3
  1280. Global Const SW_MAXIMIZE = 3
  1281. Global Const SW_SHOWNOACTIVATE = 4
  1282. Global Const SW_SHOW = 5
  1283. Global Const SW_MINIMIZE = 6
  1284. Global Const SW_SHOWMINNOACTIVE = 7
  1285. Global Const SW_SHOWNA = 8
  1286. Global Const SW_RESTORE = 9
  1287.  
  1288. '  Old ShowWindow() Commands
  1289. Global Const HIDE_WINDOW = 0
  1290. Global Const SHOW_OPENWINDOW = 1
  1291. Global Const SHOW_ICONWINDOW = 2
  1292. Global Const SHOW_FULLSCREEN = 3
  1293. Global Const SHOW_OPENNOACTIVATE = 4
  1294.  
  1295. '  Identifiers for the WM_SHOWWINDOW message
  1296. Global Const SW_PARENTCLOSING = 1
  1297. Global Const SW_OTHERZOOM = 2
  1298. Global Const SW_PARENTOPENING = 3
  1299. Global Const SW_OTHERUNZOOM = 4
  1300.  
  1301. '  Region Flags
  1302. Global Const ERRORAPI = 0
  1303. Global Const NULLREGION = 1
  1304. Global Const SIMPLEREGION = 2
  1305. Global Const COMPLEXREGION = 3
  1306.  
  1307. '  CombineRgn() Styles
  1308. Global Const RGN_AND = 1
  1309. Global Const RGN_OR = 2
  1310. Global Const RGN_XOR = 3
  1311. Global Const RGN_DIFF = 4
  1312. Global Const RGN_COPY = 5
  1313.  
  1314. '  Virtual Keys, Standard Set
  1315. Global Const VK_LBUTTON = &H1
  1316. Global Const VK_RBUTTON = &H2
  1317. Global Const VK_CANCEL = &H3
  1318. Global Const VK_MBUTTON = &H4    '  NOT contiguous with L & RBUTTON
  1319. Global Const VK_BACK = &H8
  1320. Global Const VK_TAB = &H9
  1321. Global Const VK_CLEAR = &HC
  1322. Global Const VK_RETURN = &HD
  1323. Global Const VK_SHIFT = &H10
  1324. Global Const VK_CONTROL = &H11
  1325. Global Const VK_MENU = &H12
  1326. Global Const VK_PAUSE = &H13
  1327. Global Const VK_CAPITAL = &H14
  1328. Global Const VK_ESCAPE = &H1B
  1329. Global Const VK_SPACE = &H20
  1330. Global Const VK_PRIOR = &H21
  1331. Global Const VK_NEXT = &H22
  1332. Global Const VK_END = &H23
  1333. Global Const VK_HOME = &H24
  1334. Global Const VK_LEFT = &H25
  1335. Global Const VK_UP = &H26
  1336. Global Const VK_RIGHT = &H27
  1337. Global Const VK_DOWN = &H28
  1338. Global Const VK_SELECT = &H29
  1339. Global Const VK_PRINT = &H2A
  1340. Global Const VK_EXECUTE = &H2B
  1341. Global Const VK_SNAPSHOT = &H2C
  1342. 'Global Const VK_COPY = &H2C     not used by keyboards.
  1343. Global Const VK_INSERT = &H2D
  1344. Global Const VK_DELETE = &H2E
  1345. Global Const VK_HELP = &H2F
  1346.  
  1347. '  VK_A thru VK_Z are the same as their ASCII equivalents: 'A' thru 'Z'
  1348. '  VK_0 thru VK_9 are the same as their ASCII equivalents: '0' thru '0'
  1349.  
  1350. Global Const VK_NUMPAD0 = &H60
  1351. Global Const VK_NUMPAD1 = &H61
  1352. Global Const VK_NUMPAD2 = &H62
  1353. Global Const VK_NUMPAD3 = &H63
  1354. Global Const VK_NUMPAD4 = &H64
  1355. Global Const VK_NUMPAD5 = &H65
  1356. Global Const VK_NUMPAD6 = &H66
  1357. Global Const VK_NUMPAD7 = &H67
  1358. Global Const VK_NUMPAD8 = &H68
  1359. Global Const VK_NUMPAD9 = &H69
  1360. Global Const VK_MULTIPLY = &H6A
  1361. Global Const VK_ADD = &H6B
  1362. Global Const VK_SEPARATOR = &H6C
  1363. Global Const VK_SUBTRACT = &H6D
  1364. Global Const VK_DECIMAL = &H6E
  1365. Global Const VK_DIVIDE = &H6F
  1366. Global Const VK_F1 = &H70
  1367. Global Const VK_F2 = &H71
  1368. Global Const VK_F3 = &H72
  1369. Global Const VK_F4 = &H73
  1370. Global Const VK_F5 = &H74
  1371. Global Const VK_F6 = &H75
  1372. Global Const VK_F7 = &H76
  1373. Global Const VK_F8 = &H77
  1374. Global Const VK_F9 = &H78
  1375. Global Const VK_F10 = &H79
  1376. Global Const VK_F11 = &H7A
  1377. Global Const VK_F12 = &H7B
  1378. Global Const VK_F13 = &H7C
  1379. Global Const VK_F14 = &H7D
  1380. Global Const VK_F15 = &H7E
  1381. Global Const VK_F16 = &H7F
  1382.  
  1383. Global Const VK_NUMLOCK = &H90
  1384.  
  1385. '  SetWindowsHook() codes
  1386. Global Const WH_MSGFILTER = (-1)
  1387. Global Const WH_JOURNALRECORD = 0
  1388. Global Const WH_JOURNALPLAYBACK = 1
  1389. Global Const WH_KEYBOARD = 2
  1390. Global Const WH_GETMESSAGE = 3
  1391. Global Const WH_CALLWNDPROC = 4
  1392. Global Const WH_CBT = 5
  1393. Global Const WH_SYSMSGFILTER = 6
  1394. Global Const WH_WINDOWMGR = 7
  1395.  
  1396. '  Hook Codes
  1397. Global Const HC_LPLPFNNEXT = (-2)
  1398. Global Const HC_LPFNNEXT = (-1)
  1399. Global Const HC_ACTION = 0
  1400. Global Const HC_GETNEXT = 1
  1401. Global Const HC_SKIP = 2
  1402. Global Const HC_NOREM = 3
  1403. Global Const HC_NOREMOVE = 3
  1404. Global Const HC_SYSMODALON = 4
  1405. Global Const HC_SYSMODALOFF = 5
  1406.  
  1407. '  CBT Hook Codes
  1408. Global Const HCBT_MOVESIZE = 0
  1409. Global Const HCBT_MINMAX = 1
  1410. Global Const HCBT_QS = 2
  1411.  
  1412. '  WH_MSGFILTER Filter Proc Codes
  1413. Global Const MSGF_DIALOGBOX = 0
  1414. Global Const MSGF_MESSAGEBOX = 1
  1415. Global Const MSGF_MENU = 2
  1416. Global Const MSGF_MOVE = 3
  1417. Global Const MSGF_SIZE = 4
  1418. Global Const MSGF_SCROLLBAR = 5
  1419. Global Const MSGF_NEXTWINDOW = 6
  1420.  
  1421. '  Window Manager Hook Codes
  1422. Global Const WC_INIT = 1
  1423. Global Const WC_SWP = 2
  1424. Global Const WC_DEFWINDOWPROC = 3
  1425. Global Const WC_MINMAX = 4
  1426. Global Const WC_MOVE = 5
  1427. Global Const WC_SIZE = 6
  1428. Global Const WC_DRAWCAPTION = 7
  1429.  
  1430. '  Message Structure used in Journaling
  1431. Type EVENTMSG
  1432.     message As Integer
  1433.     paramL As Integer
  1434.     paramH As Integer
  1435.     time As Long
  1436. End Type
  1437.  
  1438. '  Message structure
  1439. Type MSG
  1440.     hwnd As Integer
  1441.     message As Integer
  1442.     wParam As Integer
  1443.     lParam As Long
  1444.     time As Long
  1445.     pt As POINTAPI
  1446. End Type
  1447.  
  1448.  
  1449. '  Window field offsets for GetWindowLong() and GetWindowWord()
  1450. Global Const GWL_WNDPROC = (-4)
  1451. Global Const GWW_HINSTANCE = (-6)
  1452. Global Const GWW_HWNDPARENT = (-8)
  1453. Global Const GWW_ID = (-12)
  1454. Global Const GWL_STYLE = (-16)
  1455. Global Const GWL_EXSTYLE = (-20)
  1456.  
  1457. '  Class field offsets for GetClassLong() and GetClassWord()
  1458. Global Const GCL_MENUNAME = (-8)
  1459. Global Const GCW_HBRBACKGROUND = (-10)
  1460. Global Const GCW_HCURSOR = (-12)
  1461. Global Const GCW_HICON = (-14)
  1462. Global Const GCW_HMODULE = (-16)
  1463. Global Const GCW_CBWNDEXTRA = (-18)
  1464. Global Const GCW_CBCLSEXTRA = (-20)
  1465. Global Const GCL_WNDPROC = (-24)
  1466. Global Const GCW_STYLE = (-26)
  1467.  
  1468. '  Window Messages
  1469. Global Const WM_NULL = &H0
  1470. Global Const WM_CREATE = &H1
  1471. Global Const WM_DESTROY = &H2
  1472. Global Const WM_MOVE = &H3
  1473. Global Const WM_SIZE = &H5
  1474. Global Const WM_ACTIVATE = &H6
  1475. Global Const WM_SETFOCUS = &H7
  1476. Global Const WM_KILLFOCUS = &H8
  1477. Global Const WM_ENABLE = &HA
  1478. Global Const WM_SETREDRAW = &HB
  1479. Global Const WM_SETTEXT = &HC
  1480. Global Const WM_GETTEXT = &HD
  1481. Global Const WM_GETTEXTLENGTH = &HE
  1482. Global Const WM_PAINT = &HF
  1483. Global Const WM_CLOSE = &H10
  1484. Global Const WM_QUERYENDSESSION = &H11
  1485. Global Const WM_QUIT = &H12
  1486. Global Const WM_QUERYOPEN = &H13
  1487. Global Const WM_ERASEBKGND = &H14
  1488. Global Const WM_SYSCOLORCHANGE = &H15
  1489. Global Const WM_ENDSESSION = &H16
  1490. Global Const WM_SHOWWINDOW = &H18
  1491. Global Const WM_CTLCOLOR = &H19
  1492. Global Const WM_WININICHANGE = &H1A
  1493. Global Const WM_DEVMODECHANGE = &H1B
  1494. Global Const WM_ACTIVATEAPP = &H1C
  1495. Global Const WM_FONTCHANGE = &H1D
  1496. Global Const WM_TIMECHANGE = &H1E
  1497. Global Const WM_CANCELMODE = &H1F
  1498. Global Const WM_SETCURSOR = &H20
  1499. Global Const WM_MOUSEACTIVATE = &H21
  1500. Global Const WM_CHILDACTIVATE = &H22
  1501. Global Const WM_QUEUESYNC = &H23
  1502. Global Const WM_GETMINMAXINFO = &H24
  1503. Global Const WM_PAINTICON = &H26
  1504. Global Const WM_ICONERASEBKGND = &H27
  1505. Global Const WM_NEXTDLGCTL = &H28
  1506. Global Const WM_SPOOLERSTATUS = &H2A
  1507. Global Const WM_DRAWITEM = &H2B
  1508. Global Const WM_MEASUREITEM = &H2C
  1509. Global Const WM_DELETEITEM = &H2D
  1510. Global Const WM_VKEYTOITEM = &H2E
  1511. Global Const WM_CHARTOITEM = &H2F
  1512. Global Const WM_SETFONT = &H30
  1513. Global Const WM_GETFONT = &H31
  1514.  
  1515. Global Const WM_QUERYDRAGICON = &H37
  1516.  
  1517. Global Const WM_COMPAREITEM = &H39
  1518. Global Const WM_COMPACTING = &H41
  1519.  
  1520. Global Const WM_NCCREATE = &H81
  1521. Global Const WM_NCDESTROY = &H82
  1522. Global Const WM_NCCALCSIZE = &H83
  1523. Global Const WM_NCHITTEST = &H84
  1524. Global Const WM_NCPAINT = &H85
  1525. Global Const WM_NCACTIVATE = &H86
  1526. Global Const WM_GETDLGCODE = &H87
  1527. Global Const WM_NCMOUSEMOVE = &HA0
  1528. Global Const WM_NCLBUTTONDOWN = &HA1
  1529. Global Const WM_NCLBUTTONUP = &HA2
  1530. Global Const WM_NCLBUTTONDBLCLK = &HA3
  1531. Global Const WM_NCRBUTTONDOWN = &HA4
  1532. Global Const WM_NCRBUTTONUP = &HA5
  1533. Global Const WM_NCRBUTTONDBLCLK = &HA6
  1534. Global Const WM_NCMBUTTONDOWN = &HA7
  1535. Global Const WM_NCMBUTTONUP = &HA8
  1536. Global Const WM_NCMBUTTONDBLCLK = &HA9
  1537.  
  1538. Global Const WM_KEYFIRST = &H100
  1539. Global Const WM_KEYDOWN = &H100
  1540. Global Const WM_KEYUP = &H101
  1541. Global Const WM_CHAR = &H102
  1542. Global Const WM_DEADCHAR = &H103
  1543. Global Const WM_SYSKEYDOWN = &H104
  1544. Global Const WM_SYSKEYUP = &H105
  1545. Global Const WM_SYSCHAR = &H106
  1546. Global Const WM_SYSDEADCHAR = &H107
  1547. Global Const WM_KEYLAST = &H108
  1548.  
  1549. Global Const WM_INITDIALOG = &H110
  1550. Global Const WM_COMMAND = &H111
  1551. Global Const WM_SYSCOMMAND = &H112
  1552. Global Const WM_TIMER = &H113
  1553. Global Const WM_HSCROLL = &H114
  1554. Global Const WM_VSCROLL = &H115
  1555. Global Const WM_INITMENU = &H116
  1556. Global Const WM_INITMENUPOPUP = &H117
  1557. Global Const WM_MENUSELECT = &H11F
  1558. Global Const WM_MENUCHAR = &H120
  1559. Global Const WM_ENTERIDLE = &H121
  1560.  
  1561. Global Const WM_MOUSEFIRST = &H200
  1562. Global Const WM_MOUSEMOVE = &H200
  1563. Global Const WM_LBUTTONDOWN = &H201
  1564. Global Const WM_LBUTTONUP = &H202
  1565. Global Const WM_LBUTTONDBLCLK = &H203
  1566. Global Const WM_RBUTTONDOWN = &H204
  1567. Global Const WM_RBUTTONUP = &H205
  1568. Global Const WM_RBUTTONDBLCLK = &H206
  1569. Global Const WM_MBUTTONDOWN = &H207
  1570. Global Const WM_MBUTTONUP = &H208
  1571. Global Const WM_MBUTTONDBLCLK = &H209
  1572. Global Const WM_MOUSELAST = &H209
  1573.  
  1574. Global Const WM_PARENTNOTIFY = &H210
  1575. Global Const WM_MDICREATE = &H220
  1576. Global Const WM_MDIDESTROY = &H221
  1577. Global Const WM_MDIACTIVATE = &H222
  1578. Global Const WM_MDIRESTORE = &H223
  1579. Global Const WM_MDINEXT = &H224
  1580. Global Const WM_MDIMAXIMIZE = &H225
  1581. Global Const WM_MDITILE = &H226
  1582. Global Const WM_MDICASCADE = &H227
  1583. Global Const WM_MDIICONARRANGE = &H228
  1584. Global Const WM_MDIGETACTIVE = &H229
  1585. Global Const WM_MDISETMENU = &H230
  1586.  
  1587. Global Const WM_CUT = &H300
  1588. Global Const WM_COPY = &H301
  1589. Global Const WM_PASTE = &H302
  1590. Global Const WM_CLEAR = &H303
  1591. Global Const WM_UNDO = &H304
  1592. Global Const WM_RENDERFORMAT = &H305
  1593. Global Const WM_RENDERALLFORMATS = &H306
  1594. Global Const WM_DESTROYCLIPBOARD = &H307
  1595. Global Const WM_DRAWCLIPBOARD = &H308
  1596. Global Const WM_PAINTCLIPBOARD = &H309
  1597. Global Const WM_VSCROLLCLIPBOARD = &H30A
  1598. Global Const WM_SIZECLIPBOARD = &H30B
  1599. Global Const WM_ASKCBFORMATNAME = &H30C
  1600. Global Const WM_CHANGECBCHAIN = &H30D
  1601. Global Const WM_HSCROLLCLIPBOARD = &H30E
  1602. Global Const WM_QUERYNEWPALETTE = &H30F
  1603. Global Const WM_PALETTEISCHANGING = &H310
  1604. Global Const WM_PALETTECHANGED = &H311
  1605.  
  1606. '  NOTE: All Message Numbers below 0x0400 are RESERVED.
  1607.  
  1608. '  Private Window Messages Start Here:
  1609. Global Const WM_USER = &H400
  1610.  
  1611. '  WM_SYNCTASK Commands
  1612. Global Const ST_BEGINSWP = 0
  1613. Global Const ST_ENDSWP = 1
  1614.  
  1615. '  WinWhere() Area Codes
  1616. Global Const HTERROR = (-2)
  1617. Global Const HTTRANSPARENT = (-1)
  1618. Global Const HTNOWHERE = 0
  1619. Global Const HTCLIENT = 1
  1620. Global Const HTCAPTION = 2
  1621. Global Const HTSYSMENU = 3
  1622. Global Const HTGROWBOX = 4
  1623. Global Const HTSIZE = HTGROWBOX
  1624. Global Const HTMENU = 5
  1625. Global Const HTHSCROLL = 6
  1626. Global Const HTVSCROLL = 7
  1627. Global Const HTREDUCE = 8
  1628. Global Const HTZOOM = 9
  1629. Global Const HTLEFT = 10
  1630. Global Const HTRIGHT = 11
  1631. Global Const HTTOP = 12
  1632. Global Const HTTOPLEFT = 13
  1633. Global Const HTTOPRIGHT = 14
  1634. Global Const HTBOTTOM = 15
  1635. Global Const HTBOTTOMLEFT = 16
  1636. Global Const HTBOTTOMRIGHT = 17
  1637. Global Const HTSIZEFIRST = HTLEFT
  1638. Global Const HTSIZELAST = HTBOTTOMRIGHT
  1639.  
  1640. '  WM_MOUSEACTIVATE Return Codes
  1641. Global Const MA_ACTIVATE = 1
  1642. Global Const MA_ACTIVATEANDEAT = 2
  1643. Global Const MA_NOACTIVATE = 3
  1644.  
  1645. Declare Function RegisterWindowMessage Lib "User" (ByVal lpString As String) As Integer
  1646.  
  1647. '  Size Message Commands
  1648. Global Const SIZENORMAL = 0
  1649. Global Const SIZEICONIC = 1
  1650. Global Const SIZEFULLSCREEN = 2
  1651. Global Const SIZEZOOMSHOW = 3
  1652. Global Const SIZEZOOMHIDE = 4
  1653.  
  1654. '  Key State Masks for Mouse Messages
  1655. Global Const MK_LBUTTON = &H1
  1656. Global Const MK_RBUTTON = &H2
  1657. Global Const MK_SHIFT = &H4
  1658. Global Const MK_CONTROL = &H8
  1659. Global Const MK_MBUTTON = &H10
  1660.  
  1661. '  Window Styles
  1662. Global Const WS_OVERLAPPED = &H00000&
  1663. Global Const WS_POPUP = &H80000000&
  1664. Global Const WS_CHILD = &H40000000&
  1665. Global Const WS_MINIMIZE = &H20000000&
  1666. Global Const WS_VISIBLE = &H10000000&
  1667. Global Const WS_DISABLED = &H8000000&
  1668. Global Const WS_CLIPSIBLINGS = &H4000000&
  1669. Global Const WS_CLIPCHILDREN = &H2000000&
  1670. Global Const WS_MAXIMIZE = &H1000000&
  1671. Global Const WS_CAPTION = &HC00000&    '  WS_BORDER Or WS_DLGFRAME
  1672. Global Const WS_BORDER = &H800000&
  1673. Global Const WS_DLGFRAME = &H400000&
  1674. Global Const WS_VSCROLL = &H200000&
  1675. Global Const WS_HSCROLL = &H100000&
  1676. Global Const WS_SYSMENU = &H80000&
  1677. Global Const WS_THICKFRAME = &H40000&
  1678. Global Const WS_GROUP = &H20000&
  1679. Global Const WS_TABSTOP = &H10000&
  1680.  
  1681. Global Const WS_MINIMIZEBOX = &H20000&
  1682. Global Const WS_MAXIMIZEBOX = &H10000&
  1683.  
  1684. Global Const WS_TILED = WS_OVERLAPPED
  1685. Global Const WS_ICONIC = WS_MINIMIZE
  1686. Global Const WS_SIZEBOX = WS_THICKFRAME
  1687.  
  1688. '  Common Window Styles
  1689. Global Const WS_OVERLAPPEDWINDOW = (WS_OVERLAPPED Or WS_CAPTION Or WS_SYSMENU Or WS_THICKFRAME Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX)
  1690. Global Const WS_POPUPWINDOW = (WS_POPUP Or WS_BORDER Or WS_SYSMENU)
  1691. Global Const WS_CHILDWINDOW = (WS_CHILD)
  1692. Global Const WS_TILEDWINDOW = (WS_OVERLAPPEDWINDOW)
  1693.  
  1694. '  Extended Window Styles
  1695. Global Const WS_EX_DLGMODALFRAME = &H00001&
  1696. Global Const WS_EX_NOPARENTNOTIFY = &H00004&
  1697.  
  1698. '  Class styles
  1699. Global Const CS_VREDRAW = &H1
  1700. Global Const CS_HREDRAW = &H2
  1701. Global Const CS_KEYCVTWINDOW = &H4
  1702. Global Const CS_DBLCLKS = &H8
  1703. Global Const CS_OWNDC = &H20
  1704. Global Const CS_CLASSDC = &H40
  1705. Global Const CS_PARENTDC = &H80
  1706. Global Const CS_NOKEYCVT = &H100
  1707. Global Const CS_NOCLOSE = &H200
  1708. Global Const CS_SAVEBITS = &H800
  1709. Global Const CS_BYTEALIGNCLIENT = &H1000
  1710. Global Const CS_BYTEALIGNWINDOW = &H2000
  1711. Global Const CS_GLOBALCLASS = &H4000    '  Global window class
  1712.  
  1713. '  Predefined Clipboard Formats
  1714. Global Const CF_TEXT = 1
  1715. Global Const CF_BITMAP = 2
  1716. Global Const CF_METAFILEPICT = 3
  1717. Global Const CF_SYLK = 4
  1718. Global Const CF_DIF = 5
  1719. Global Const CF_TIFF = 6
  1720. Global Const CF_OEMTEXT = 7
  1721. Global Const CF_DIB = 8
  1722. Global Const CF_PALETTE = 9
  1723.  
  1724. Global Const CF_OWNERDISPLAY = &H80
  1725. Global Const CF_DSPTEXT = &H81
  1726. Global Const CF_DSPBITMAP = &H82
  1727. Global Const CF_DSPMETAFILEPICT = &H83
  1728.  
  1729. '  "Private" formats don't get GlobalFree()'d
  1730. Global Const CF_PRIVATEFIRST = &H200
  1731. Global Const CF_PRIVATELAST = &H2FF
  1732.  
  1733. '  "GDIOBJ" formats do get DeleteObject()'d
  1734. Global Const CF_GDIOBJFIRST = &H300
  1735. Global Const CF_GDIOBJLAST = &H3FF
  1736.  
  1737. Type PAINTSTRUCT
  1738.     hdc As Integer
  1739.     fErase As Integer
  1740.     rcPaint As RECT
  1741.     fRestore As Integer
  1742.     fIncUpdate As Integer
  1743.     rgbReserved As String * 16
  1744. End Type
  1745.  
  1746. Type CREATESTRUCT
  1747.     lpCreateParams As Long
  1748.     hInstance As Integer
  1749.     hMenu As Integer
  1750.     hwndParent As Integer
  1751.     cy As Integer
  1752.     cx As Integer
  1753.     y As Integer
  1754.     x As Integer
  1755.     style As Long
  1756.     lpszName As Long
  1757.     lpszClass As Long
  1758.     ExStyle As Long
  1759. End Type
  1760.  
  1761. '  Owner draw control types
  1762. Global Const ODT_MENU = 1
  1763. Global Const ODT_LISTBOX = 2
  1764. Global Const ODT_COMBOBOX = 3
  1765. Global Const ODT_BUTTON = 4
  1766.  
  1767. '  Owner draw actions
  1768. Global Const ODA_DRAWENTIRE = &H1
  1769. Global Const ODA_SELECT = &H2
  1770. Global Const ODA_FOCUS = &H4
  1771.  
  1772. '  Owner draw state
  1773. Global Const ODS_SELECTED = &H1
  1774. Global Const ODS_GRAYED = &H2
  1775. Global Const ODS_DISABLED = &H4
  1776. Global Const ODS_CHECKED = &H8
  1777. Global Const ODS_FOCUS = &H10
  1778.  
  1779. '  MEASUREITEMSTRUCT for ownerdraw
  1780. Type MEASUREITEMSTRUCT
  1781.     CtlType As Integer
  1782.     CtlID As Integer
  1783.     itemID As Integer
  1784.     itemWidth As Integer
  1785.     itemHeight As Integer
  1786.     itemData As Long
  1787. End Type
  1788.  
  1789. '  DRAWITEMSTRUCT for ownerdraw
  1790. Type DRAWITEMSTRUCT
  1791.     CtlType As Integer
  1792.     CtlID As Integer
  1793.     itemID As Integer
  1794.     itemAction As Integer
  1795.     itemState As Integer
  1796.     hwndItem As Integer
  1797.     hDC As Integer
  1798.     rcItem As RECT
  1799.     itemData As Long
  1800. End Type
  1801.  
  1802. '  DELETEITEMSTRUCT for ownerdraw
  1803. Type DELETEITEMSTRUCT
  1804.     CtlType As Integer
  1805.     CtlID As Integer
  1806.     itemID As Integer
  1807.     hwndItem As Integer
  1808.     itemData As Long
  1809. End Type
  1810.  
  1811. '  COMPAREITEMSTRUCT for ownerdraw sorting
  1812. Type COMPAREITEMSTRUCT
  1813.     CtlType As Integer
  1814.     CtlID As Integer
  1815.     hwndItem As Integer
  1816.     itemID1 As Integer
  1817.     itemData1 As Long
  1818.     itemID2 As Integer
  1819.     itemData2 As Long
  1820. End Type
  1821.  
  1822. '  Message Function Templates
  1823. Declare Function GetMessage Lib "User" (lpMsg As MSG, ByVal hWnd As Integer, ByVal wMsgFilterMin As Integer, ByVal wMsgFilterMax As Integer) As Integer
  1824. Declare Function TranslateMessage Lib "User" (lpMsg As MSG) As Integer
  1825. Declare Function DispatchMessage Lib "User" (lpMsg As MSG) As Long
  1826. Declare Function PeekMessage Lib "User" (lpMsg As MSG, ByVal hWnd As Integer, ByVal wMsgFilterMin As Integer, ByVal wMsgFilterMax As Integer, ByVal wRemoveMsg As Integer) As Integer
  1827.  
  1828. '  PeekMessage() Options
  1829. Global Const PM_NOREMOVE = &H0
  1830. Global Const PM_REMOVE = &H1
  1831. Global Const PM_NOYIELD = &H2
  1832.  
  1833. Declare Function lstrcmp Lib "User" (ByVal lpString1 As Any, ByVal lpString2 As Any) As Integer
  1834. Declare Function lstrcmpi Lib "User" (ByVal lpString1 As Any, ByVal lpString2 As Any) As Integer
  1835. Declare Function lstrcpy Lib "Kernel" (ByVal lpString1 As Any, ByVal lpString2 As Any) As Long
  1836. Declare Function lstrcat Lib "Kernel" (ByVal lpString1 As Any, ByVal lpString2 As Any) As Long
  1837. Declare Function lstrlen Lib "Kernel" (ByVal lpString As Any) As Integer
  1838.  
  1839. Declare Function lopen Lib "Kernel" Alias "_lopen" (ByVal lpPathName As String, ByVal iReadWrite As Integer) As Integer
  1840. Declare Function lclose Lib "Kernel" Alias "_lclose" (ByVal hFile As Integer) As Integer
  1841. Declare Function lcreat Lib "Kernel" Alias "_lcreat" (ByVal lpPathName As String, ByVal iAttribute As Integer) As Integer
  1842. Declare Function llseek Lib "Kernel" Alias "_llseek" (ByVal hFile As Integer, ByVal lOffset As Long, ByVal iOrigin As Integer) As Long
  1843. Declare Function lread Lib "Kernel" Alias "_lread" (ByVal hFile As Integer, ByVal lpBuffer As String, ByVal wBytes As Integer) As Integer
  1844. Declare Function lwrite Lib "Kernel" Alias "_lwrite" (ByVal hFile As Integer, ByVal lpBuffer As String, ByVal wBytes As Integer) As Integer
  1845.  
  1846. Global Const READAPI = 0    '  Flags for _lopen
  1847. Global Const WRITEAPI = 1
  1848. Global Const READ_WRITE = 2
  1849.  
  1850. Declare Function ExitWindows Lib "User" (ByVal dwReserved As Long, wReturnCode) As Integer
  1851.  
  1852. Declare Function SwapMouseButton Lib "User" (ByVal bSwap As Integer) As Integer
  1853. Declare Function GetMessagePos Lib "User" () As Long
  1854. Declare Function GetMessageTime Lib "User" () As Long
  1855.  
  1856. Declare Function GetSysModalWindow Lib "User" () As Integer
  1857. Declare Function SetSysModalWindow Lib "User" (ByVal hWnd As Integer) As Integer
  1858.  
  1859. Declare Function SendMessage Lib "User" (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Long
  1860. Declare Function PostMessage Lib "User" (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Integer
  1861. Declare Function PostAppMessage Lib "User" (ByVal hTask As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Integer
  1862. Declare Sub ReplyMessage Lib "User" (ByVal lReply As Long)
  1863. Declare Sub WaitMessage Lib "User" ()
  1864. Declare Function DefWindowProc Lib "User" (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Long
  1865. Declare Sub PostQuitMessage Lib "User" (ByVal nExitCode As Integer)
  1866. Declare Function InSendMessage Lib "User" () As Integer
  1867.  
  1868. Declare Function GetDoubleClickTime Lib "User" () As Integer
  1869. Declare Sub SetDoubleClickTime Lib "User" (ByVal wCount As Integer)
  1870.  
  1871. Declare Function UnregisterClass Lib "User" (ByVal lpClassName As String, ByVal hInstance As Integer) As Integer
  1872.  
  1873. Declare Function SetMessageQueue Lib "User" (ByVal cMsg As Integer) As Integer
  1874.  
  1875. Global Const CW_USEDEFAULT = &H8000
  1876.  
  1877. Declare Function CreateWindow% Lib "User" (ByVal lpClassName$, ByVal lpWindowName$, ByVal dwStyle&, ByVal X%, ByVal Y%, ByVal nWidth%, ByVal nHeight%, ByVal hWndParent%, ByVal hMenu%, ByVal hInstance%, ByVal lpParam$)
  1878. Declare Function CreateWindowEx% Lib "User" (ByVal dwExStyle&, ByVal lpClassName$, ByVal lpWindowName$, ByVal dwStyle&, ByVal X%, ByVal Y%, ByVal nWidth%, ByVal nHeight%, ByVal hWndParent%, ByVal hMenu%, ByVal hInstance%, ByVal lpParam$)
  1879. Declare Function IsWindow Lib "User" (ByVal hWnd As Integer) As Integer
  1880. Declare Function IsChild Lib "User" (ByVal hWndParent As Integer, ByVal hWnd As Integer) As Integer
  1881. Declare Function DestroyWindow Lib "User" (ByVal hWnd As Integer) As Integer
  1882.  
  1883. Declare Function ShowWindow Lib "User" (ByVal hWnd As Integer, ByVal nCmdShow As Integer) As Integer
  1884. Declare Function FlashWindow Lib "User" (ByVal hWnd As Integer, ByVal bInvert As Integer) As Integer
  1885. Declare Sub ShowOwnedPopups Lib "User" (ByVal hWnd As Integer, ByVal fShow As Integer)
  1886.  
  1887. Declare Function OpenIcon Lib "User" (ByVal hWnd As Integer) As Integer
  1888. Declare Sub CloseWindow Lib "User" (ByVal hWnd As Integer)
  1889. Declare Sub MoveWindow Lib "User" (ByVal hWnd As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal bRepaint As Integer)
  1890. Declare Sub SetWindowPos Lib "User" (ByVal hWnd As Integer, ByVal hWndInsertAfter As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer)
  1891.  
  1892. Declare Function BeginDeferWindowPos Lib "User" (ByVal nNumWindows As Integer)
  1893. Declare Function DeferWindowPos Lib "User" (ByVal hWinPosInfo As Integer, ByVal hWnd as Integer, ByVal hWndInsertAfter as Integer, ByVal x, ByVal y, ByVal cx, ByVal cy, ByVal wFlags as Integer)
  1894. Declare Sub EndDeferWindowPos Lib "User" (ByVal hWinPosInfo As Integer)
  1895.  
  1896. Declare Function IsWindowVisible Lib "User" (ByVal hWnd As Integer) As Integer
  1897. Declare Function IsIconic Lib "User" (ByVal hWnd As Integer) As Integer
  1898. Declare Function AnyPopup Lib "User" () As Integer
  1899. Declare Sub BringWindowToTop Lib "User" (ByVal hWnd As Integer)
  1900. Declare Function IsZoomed Lib "User" (ByVal hWnd As Integer) As Integer
  1901.  
  1902. '  SetWindowPos Flags
  1903. Global Const SWP_NOSIZE = &H1
  1904. Global Const SWP_NOMOVE = &H2
  1905. Global Const SWP_NOZORDER = &H4
  1906. Global Const SWP_NOREDRAW = &H8
  1907. Global Const SWP_NOACTIVATE = &H10
  1908. Global Const SWP_DRAWFRAME = &H20
  1909. Global Const SWP_SHOWWINDOW = &H40
  1910. Global Const SWP_HIDEWINDOW = &H80
  1911. Global Const SWP_NOCOPYBITS = &H100
  1912. Global Const SWP_NOREPOSITION = &H200
  1913.  
  1914. Declare Sub EndDialog Lib "User" (ByVal hDlg As Integer, ByVal nResult As Integer)
  1915. Declare Function GetDlgItem Lib "User" (ByVal hDlg As Integer, ByVal nIDDlgItem As Integer) As Integer
  1916. Declare Sub SetDlgItemInt Lib "User" (ByVal hDlg As Integer, ByVal nIDDlgItem As Integer, ByVal wValue As Integer, ByVal bSigned As Integer)
  1917. Declare Function GetDlgItemInt Lib "User" (ByVal hDlg As Integer, ByVal nIDDlgItem As Integer, lpTranslated As Integer, ByVal bSigned As Integer) As Integer
  1918. Declare Sub SetDlgItemText Lib "User" (ByVal hDlg As Integer, ByVal nIDDlgItem As Integer, ByVal lpString As String)
  1919. Declare Function GetDlgItemText Lib "User" (ByVal hDlg As Integer, ByVal nIDDlgItem As Integer, ByVal lpString As String, ByVal nMaxCount As Integer) As Integer
  1920. Declare Sub CheckDlgButton Lib "User" (ByVal hDlg As Integer, ByVal nIDButton As Integer, ByVal wCheck As Integer)
  1921. Declare Sub CheckRadioButton Lib "User" (ByVal hDlg As Integer, ByVal nIDFirstButton As Integer, ByVal nIDLastButton As Integer, ByVal nIDCheckButton As Integer)
  1922. Declare Function IsDlgButtonChecked Lib "User" (ByVal hDlg As Integer, ByVal nIDButton As Integer) As Integer
  1923. Declare Function SendDlgItemMessage Lib "User" (ByVal hDlg As Integer, ByVal nIDDlgItem As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Long
  1924. Declare Function GetNextDlgGroupItem Lib "User" (ByVal hDlg As Integer, ByVal hCtl As Integer, ByVal bPrevious As Integer) As Integer
  1925. Declare Function GetNextDlgTabItem Lib "User" (ByVal hDlg As Integer, ByVal hCtl As Integer, ByVal bPrevious As Integer) As Integer
  1926. Declare Function GetDlgCtrlID Lib "User" (ByVal hWnd As Integer) As Integer
  1927. Declare Function GetDialogBaseUnits Lib "User" () As Long
  1928. Declare Function DefDlgProc Lib "User" (ByVal hDlg As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Long
  1929.  
  1930. Global Const DLGWINDOWEXTRA = 30    '  Window extra bytes needed for private dialog classes
  1931.  
  1932. Declare Function CallMsgFilter Lib "User" (lpMsg As MSG, ByVal nCode As Integer) As Integer
  1933.  
  1934. '  Clipboard Manager Functions
  1935. Declare Function OpenClipboard Lib "User" (ByVal hWnd As Integer) As Integer
  1936. Declare Function CloseClipboard Lib "User" () As Integer
  1937. Declare Function GetClipboardOwner Lib "User" () As Integer
  1938. Declare Function SetClipboardViewer Lib "User" (ByVal hWnd As Integer) As Integer
  1939. Declare Function GetClipboardViewer Lib "User" () As Integer
  1940. Declare Function ChangeClipboardChain Lib "User" (ByVal hWnd As Integer, ByVal hWndNext As Integer) As Integer
  1941. Declare Function SetClipboardData Lib "User" (ByVal wFormat As Integer, ByVal hMem As Integer) As Integer
  1942. Declare Function GetClipboardData Lib "User" (ByVal wFormat As Integer) As Integer
  1943. Declare Function RegisterClipboardFormat Lib "User" (ByVal lpString As String) As Integer
  1944. Declare Function CountClipboardFormats Lib "User" () As Integer
  1945. Declare Function EnumClipboardFormats Lib "User" (ByVal wFormat As Integer) As Integer
  1946. Declare Function GetClipboardFormatName Lib "User" (ByVal wFormat As Integer, ByVal lpString As String, ByVal nMaxCount As Integer) As Integer
  1947. Declare Function EmptyClipboard Lib "User" () As Integer
  1948. Declare Function IsClipboardFormatAvailable Lib "User" (ByVal wFormat As Integer) As Integer
  1949. Declare Function GetPriorityClipboardFormat Lib "User" (lpPriorityList As Integer, ByVal nCount As Integer) As Integer
  1950.  
  1951. Declare Function SetFocusAPI Lib "User" Alias "SetFocus" (ByVal hWnd As Integer) As Integer
  1952. Declare Function GetFocus Lib "User" () As Integer
  1953. Declare Function GetActiveWindow Lib "User" () As Integer
  1954. Declare Function GetKeyState Lib "User" (ByVal nVirtKey As Integer) As Integer
  1955. Declare Function GetAsyncKeyState Lib "User" (ByVal vKey As Integer) As Integer
  1956. Declare Sub GetKeyboardState Lib "User" (LpKeyState As Any)
  1957. Declare Sub SetKeyboardState Lib "User" (lpKeyState As Any)
  1958. Declare Function EnableHardwareInput Lib "User" (ByVal bEnableInput As Integer) As Integer
  1959. Declare Function GetInputState Lib "User" () As Integer
  1960. Declare Function GetCapture Lib "User" () As Integer
  1961. Declare Function SetCapture Lib "User" (ByVal hWnd As Integer) As Integer
  1962. Declare Sub ReleaseCapture Lib "User" ()
  1963.  
  1964. '  Windows Functions
  1965. Declare Function KillTimer Lib "User" (ByVal hWnd As Integer, ByVal nIDEvent As Integer) As Integer
  1966.  
  1967. Declare Function EnableWindow Lib "User" (ByVal hWnd As Integer, ByVal aBOOL As Integer) As Integer
  1968. Declare Function IsWindowEnabled Lib "User" (ByVal hWnd As Integer) As Integer
  1969.  
  1970. Declare Function LoadAccelerators Lib "User" (ByVal hInstance As Integer, ByVal lpTableName As String) As Integer
  1971.  
  1972. Declare Function TranslateAccelerator Lib "User" (ByVal hWnd As Integer, ByVal hAccTable As Integer, lpMsg As MSG) As Integer
  1973.  
  1974.  
  1975. '  GetSystemMetrics() codes
  1976. Global Const SM_CXSCREEN = 0
  1977. Global Const SM_CYSCREEN = 1
  1978. Global Const SM_CXVSCROLL = 2
  1979. Global Const SM_CYHSCROLL = 3
  1980. Global Const SM_CYCAPTION = 4
  1981. Global Const SM_CXBORDER = 5
  1982. Global Const SM_CYBORDER = 6
  1983. Global Const SM_CXDLGFRAME = 7
  1984. Global Const SM_CYDLGFRAME = 8
  1985. Global Const SM_CYVTHUMB = 9
  1986. Global Const SM_CXHTHUMB = 10
  1987. Global Const SM_CXICON = 11
  1988. Global Const SM_CYICON = 12
  1989. Global Const SM_CXCURSOR = 13
  1990. Global Const SM_CYCURSOR = 14
  1991. Global Const SM_CYMENU = 15
  1992. Global Const SM_CXFULLSCREEN = 16
  1993. Global Const SM_CYFULLSCREEN = 17
  1994. Global Const SM_CYKANJIWINDOW = 18
  1995. Global Const SM_MOUSEPRESENT = 19
  1996. Global Const SM_CYVSCROLL = 20
  1997. Global Const SM_CXHSCROLL = 21
  1998. Global Const SM_DEBUG = 22
  1999. Global Const SM_SWAPBUTTON = 23
  2000. Global Const SM_RESERVED1 = 24
  2001. Global Const SM_RESERVED2 = 25
  2002. Global Const SM_RESERVED3 = 26
  2003. Global Const SM_RESERVED4 = 27
  2004. Global Const SM_CXMIN = 28
  2005. Global Const SM_CYMIN = 29
  2006. Global Const SM_CXSIZE = 30
  2007. Global Const SM_CYSIZE = 31
  2008. Global Const SM_CXFRAME = 32
  2009. Global Const SM_CYFRAME = 33
  2010. Global Const SM_CXMINTRACK = 34
  2011. Global Const SM_CYMINTRACK = 35
  2012. Global Const SM_CMETRICS = 36
  2013.  
  2014. Declare Function GetSystemMetrics Lib "User" (ByVal nIndex As Integer) As Integer
  2015.  
  2016. Declare Function LoadMenu Lib "User" (ByVal hInstance As Integer, ByVal lpString As String) As Integer
  2017. Declare Function LoadMenuIndirect Lib "User" (lpMenuTemplate As MENUITEMTEMPLATE) As Integer
  2018. Declare Function GetMenu Lib "User" (ByVal hWnd As Integer) As Integer
  2019. Declare Function SetMenu Lib "User" (ByVal hWnd As Integer, ByVal hMenu As Integer) As Integer
  2020. Declare Function ChangeMenu Lib "User" (ByVal hMenu As Integer, ByVal wID As Integer, ByVal lpszNew As String, ByVal wIDNew As Integer, ByVal wChange As Integer) As Integer
  2021. Declare Function HiliteMenuItem Lib "User" (ByVal hWnd As Integer, ByVal hMenu As Integer, ByVal wIDHiliteItem As Integer, ByVal wHilite As Integer) As Integer
  2022. Declare Function GetMenuString Lib "User" (ByVal hMenu As Integer, ByVal wIDItem As Integer, ByVal lpString As String, ByVal nMaxCount As Integer, ByVal wFlag As Integer) As Integer
  2023. Declare Function GetMenuState Lib "User" (ByVal hMenu As Integer, ByVal wId As Integer, ByVal wFlags As Integer) As Integer
  2024. Declare Sub DrawMenuBar Lib "User" (ByVal hWnd As Integer)
  2025. Declare Function GetSystemMenu Lib "User" (ByVal hWnd As Integer, ByVal bRevert As Integer) As Integer
  2026. Declare Function CreateMenu Lib "User" () As Integer
  2027. Declare Function CreatePopupMenu Lib "User" () As Integer
  2028. Declare Function DestroyMenu Lib "User" (ByVal hMenu As Integer) As Integer
  2029. Declare Function CheckMenuItem Lib "User" (ByVal hMenu As Integer, ByVal wIDCheckItem As Integer, ByVal wCheck As Integer) As Integer
  2030. Declare Function EnableMenuItem Lib "User" (ByVal hMenu As Integer, ByVal wIDEnableItem As Integer, ByVal wEnable As Integer) As Integer
  2031. Declare Function GetSubMenu Lib "User" (ByVal hMenu As Integer, ByVal nPos As Integer) As Integer
  2032. Declare Function GetMenuItemID Lib "User" (ByVal hMenu As Integer, ByVal nPos As Integer) As Integer
  2033. Declare Function GetMenuItemCount Lib "User" (ByVal hMenu As Integer) As Integer
  2034.  
  2035. Declare Function InsertMenu Lib "User" (ByVal hMenu As Integer, ByVal nPosition As Integer, ByVal wFlags As Integer, ByVal wIDNewItem As Integer, ByVal lpNewItem As Any) As Integer
  2036. Declare Function AppendMenu Lib "User" (ByVal hMenu As Integer, ByVal wFlags As Integer, ByVal wIDNewItem As Integer, ByVal lpNewItem As Any) As Integer
  2037. Declare Function ModifyMenu Lib "User" (ByVal hMenu As Integer, ByVal nPosition As Integer, ByVal wFlags As Integer, ByVal wIDNewItem As Integer, ByVal lpString As Any) As Integer
  2038. Declare Function RemoveMenu Lib "User" (ByVal hMenu As Integer, ByVal nPosition As Integer, ByVal wFlags As Integer) As Integer
  2039. Declare Function DeleteMenu Lib "User" (ByVal hMenu As Integer, ByVal nPosition As Integer, ByVal wFlags As Integer) As Integer
  2040. Declare Function SetMenuItemBitmaps Lib "User" (ByVal hMenu As Integer, ByVal nPosition As Integer, ByVal wFlags As Integer, ByVal hBitmapUnchecked As Integer, ByVal hBitmapChecked As Integer) As Integer
  2041. Declare Function GetMenuCheckMarkDimensions Lib "User" () As Long
  2042. Declare Function TrackPopupMenu Lib "User" (ByVal hMenu As Integer, ByVal wFlags As Integer, ByVal x As Integer, ByVal y As Integer, ByVal nReserved As Integer, ByVal hWnd As Integer, lpReserved As Any) As Integer
  2043.  
  2044. Declare Sub UpdateWindow Lib "User" (ByVal hWnd As Integer)
  2045. Declare Function SetActiveWindow Lib "User" (ByVal hWnd As Integer) As Integer
  2046.  
  2047. Declare Function BeginPaint Lib "User" (ByVal hWnd As Integer, lpPaint As PAINTSTRUCT) As Integer
  2048. Declare Sub EndPaint Lib "User" (ByVal hWnd As Integer, lpPaint As PAINTSTRUCT)
  2049. Declare Function GetUpdateRect Lib "User" (ByVal hWnd As Integer, lpRect As RECT, ByVal bErase As Integer) As Integer
  2050. Declare Function GetUpdateRgn Lib "User" (ByVal hWnd As Integer, ByVal hRgn As Integer, ByVal fErase As Integer) As Integer
  2051.  
  2052. Declare Function ExcludeUpdateRgn Lib "User" (ByVal hDC As Integer, ByVal hWnd As Integer) As Integer
  2053.  
  2054. Declare Sub InvalidateRect Lib "User" (ByVal hWnd As Integer, lpRect As RECT, ByVal bErase As Integer)
  2055. Declare Sub ValidateRect Lib "User" (ByVal hWnd As Integer, lpRect As RECT)
  2056.  
  2057. Declare Sub InvalidateRgn Lib "User" (ByVal hWnd As Integer, ByVal hRgn As Integer, ByVal bErase As Integer)
  2058. Declare Sub ValidateRgn Lib "User" (ByVal hWnd As Integer, ByVal hRgn As Integer)
  2059.  
  2060. Declare Sub ScrollWindow Lib "User" (ByVal hWnd As Integer, ByVal XAmount As Integer, ByVal YAmount As Integer, lpRect As RECT, lpClipRect As RECT)
  2061. Declare Function ScrollDC Lib "User" (ByVal hDC As Integer, ByVal dx As Integer, ByVal dy As Integer, lprcScroll As RECT, lprcClip As RECT, ByVal hRgnUpdate As Integer, lprcUpdate As RECT) As Integer
  2062.  
  2063. Declare Function SetScrollPos Lib "User" (ByVal hWnd As Integer, ByVal nBar As Integer, ByVal nPos As Integer, ByVal bRedraw As Integer) As Integer
  2064. Declare Function GetScrollPos Lib "User" (ByVal hWnd As Integer, ByVal nBar As Integer) As Integer
  2065. Declare Sub SetScrollRange Lib "User" (ByVal hWnd As Integer, ByVal nBar As Integer, ByVal nMinPos As Integer, ByVal nMaxPos As Integer, ByVal bRedraw As Integer)
  2066. Declare Sub GetScrollRange Lib "User" (ByVal hWnd As Integer, ByVal nBar As Integer, lpMinPos As Integer, lpMaxPos As Integer)
  2067. Declare Sub ShowScrollBar Lib "User" (ByVal hWnd As Integer, ByVal wBar As Integer, ByVal bShow As Integer)
  2068.  
  2069. Declare Function SetProp Lib "User" (ByVal hWnd As Integer, ByVal lpString As String, ByVal hData As Integer) As Integer
  2070. Declare Function GetProp Lib "User" (ByVal hWnd As Integer, ByVal lpString As Any) As Integer
  2071. Declare Function RemoveProp Lib "User" (ByVal hWnd As Integer, ByVal lpString As String) As Integer
  2072. Declare Sub SetWindowText Lib "User" (ByVal hWnd As Integer, ByVal lpString As String)
  2073. Declare Function GetWindowText Lib "User" (ByVal hWnd As Integer, ByVal lpString As String, ByVal aint As Integer) As Integer
  2074. Declare Function GetWindowTextLength Lib "User" (ByVal hWnd As Integer) As Integer
  2075.  
  2076. Declare Sub GetClientRect Lib "User" (ByVal hWnd As Integer, lpRect As RECT)
  2077. Declare Sub GetWindowRect Lib "User" (ByVal hWnd As Integer, lpRect As RECT)
  2078. Declare Sub AdjustWindowRect Lib "User" (lpRect As RECT, ByVal dwStyle As Long, ByVal bMenu As Integer)
  2079. Declare Sub AdjustWindowRectEx Lib "User" (lpRect As RECT, ByVal dsStyle As Long, ByVal bMenu As Integer, ByVal dwEsStyle As Long)
  2080.  
  2081.  
  2082. '  MessageBox() Flags
  2083. Global Const MB_OK = &H0
  2084. Global Const MB_OKCANCEL = &H1
  2085. Global Const MB_ABORTRETRYIGNORE = &H2
  2086. Global Const MB_YESNOCANCEL = &H3
  2087. Global Const MB_YESNO = &H4
  2088. Global Const MB_RETRYCANCEL = &H5
  2089.  
  2090. Global Const MB_ICONHAND = &H10
  2091. Global Const MB_ICONQUESTION = &H20
  2092. Global Const MB_ICONEXCLAMATION = &H30
  2093. Global Const MB_ICONASTERISK = &H40
  2094.  
  2095. Global Const MB_ICONINFORMATION = MB_ICONASTERISK
  2096. Global Const MB_ICONSTOP = MB_ICONHAND
  2097.  
  2098. Global Const MB_DEFBUTTON1 = &H0
  2099. Global Const MB_DEFBUTTON2 = &H100
  2100. Global Const MB_DEFBUTTON3 = &H200
  2101.  
  2102. Global Const MB_APPLMODAL = &H0
  2103. Global Const MB_SYSTEMMODAL = &H1000
  2104. Global Const MB_TASKMODAL = &H2000
  2105.  
  2106. Global Const MB_NOFOCUS = &H8000
  2107.  
  2108. Global Const MB_TYPEMASK = &HF
  2109. Global Const MB_ICONMASK = &HF0
  2110. Global Const MB_DEFMASK = &HF00
  2111. Global Const MB_MODEMASK = &H3000
  2112. Global Const MB_MISCMASK = &HC000
  2113.  
  2114. Declare Function MessageBox Lib "User" (ByVal hWnd As Integer, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Integer) As Integer
  2115. Declare Sub MessageBeep Lib "User" (ByVal wType As Integer)
  2116.  
  2117. Declare Function ShowCursor Lib "User" (ByVal bShow As Integer) As Integer
  2118. Declare Sub SetCursorPos Lib "User" (ByVal X As Integer, ByVal Y As Integer)
  2119. Declare Function SetCursor Lib "User" (ByVal hCursor As Integer) As Integer
  2120. Declare Sub GetCursorPos Lib "User" (lpPoint As POINTAPI)
  2121. Declare Sub ClipCursor Lib "User" (lpRect As Any)
  2122.  
  2123. Declare Sub CreateCaret Lib "User" (ByVal hWnd As Integer, ByVal hBitmap As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer)
  2124. Declare Function GetCaretBlinkTime Lib "User" () As Integer
  2125. Declare Sub SetCaretBlinkTime Lib "User" (ByVal wMSeconds As Integer)
  2126. Declare Sub DestroyCaret Lib "User" ()
  2127. Declare Sub HideCaret Lib "User" (ByVal hWnd As Integer)
  2128. Declare Sub ShowCaret Lib "User" (ByVal hWnd As Integer)
  2129. Declare Sub SetCaretPos Lib "User" (ByVal X As Integer, ByVal Y As Integer)
  2130. Declare Sub GetCaretPos Lib "User" (lpPoint As POINTAPI)
  2131.  
  2132. Declare Sub ClientToScreen Lib "User" (ByVal hWnd As Integer, lpPoint As POINTAPI)
  2133. Declare Sub ScreenToClient Lib "User" (ByVal hWnd As Integer, lpPoint As POINTAPI)
  2134.  
  2135. Declare Function WindowFromPoint Lib "User" (ByVal Point As Any) As Integer
  2136. Declare Function ChildWindowFromPoint Lib "User" (ByVal hWnd As Integer, ByVal Point As Any) As Integer
  2137.  
  2138.  
  2139. '  Color Types
  2140. Global Const CTLCOLOR_MSGBOX = 0
  2141. Global Const CTLCOLOR_EDIT = 1
  2142. Global Const CTLCOLOR_LISTBOX = 2
  2143. Global Const CTLCOLOR_BTN = 3
  2144. Global Const CTLCOLOR_DLG = 4
  2145. Global Const CTLCOLOR_SCROLLBAR = 5
  2146. Global Const CTLCOLOR_STATIC = 6
  2147. Global Const CTLCOLOR_MAX = 8    '  three bits max
  2148.  
  2149. Global Const COLOR_SCROLLBAR = 0
  2150. Global Const COLOR_BACKGROUND = 1
  2151. Global Const COLOR_ACTIVECAPTION = 2
  2152. Global Const COLOR_INACTIVECAPTION = 3
  2153. Global Const COLOR_MENU = 4
  2154. Global Const COLOR_WINDOW = 5
  2155. Global Const COLOR_WINDOWFRAME = 6
  2156. Global Const COLOR_MENUTEXT = 7
  2157. Global Const COLOR_WINDOWTEXT = 8
  2158. Global Const COLOR_CAPTIONTEXT = 9
  2159. Global Const COLOR_ACTIVEBORDER = 10
  2160. Global Const COLOR_INACTIVEBORDER = 11
  2161. Global Const COLOR_APPWORKSPACE = 12
  2162. Global Const COLOR_HIGHLIGHT = 13
  2163. Global Const COLOR_HIGHLIGHTTEXT = 14
  2164. Global Const COLOR_BTNFACE = 15
  2165. Global Const COLOR_BTNSHADOW = 16
  2166. Global Const COLOR_GRAYTEXT = 17
  2167. Global Const COLOR_BTNTEXT = 18
  2168. Global Const COLOR_ENDCOLORS = COLOR_BTNTEXT
  2169.  
  2170. Declare Function GetSysColor Lib "User" (ByVal nIndex As Integer) As Long
  2171. Declare Sub SetSysColors Lib "User" (ByVal nChanges As Integer, lpSysColor As Integer, lpColorValues As Long)
  2172.  
  2173. Declare Function FillRgn Lib "User" (ByVal hDC As Integer, ByVal hRgn As Integer, ByVal hBrush As Integer) As Integer
  2174. Declare Function FrameRgn Lib "User" (ByVal hDC As Integer, ByVal hRgn As Integer, ByVal hBrush As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer) As Integer
  2175. Declare Function InvertRgn Lib "User" (ByVal hDC As Integer, ByVal hRgn As Integer) As Integer
  2176. Declare Function PaintRgn Lib "User" (ByVal hDC As Integer, ByVal hRgn As Integer) As Integer
  2177. Declare Function PtInRegion Lib "User" (ByVal hRgn As Integer, ByVal X As Integer, ByVal Y As Integer) As Integer
  2178.  
  2179. Declare Sub DrawFocusRect Lib "User" (ByVal hDC As Integer, lpRect As RECT)
  2180. Declare Function FillRect Lib "User" (ByVal hDC As Integer, lpRect As RECT, ByVal hBrush As Integer) As Integer
  2181. Declare Function FrameRect Lib "User" (ByVal hDC As Integer, lpRect As RECT, ByVal hBrush As Integer) As Integer
  2182. Declare Sub InvertRect Lib "User" (ByVal hDC As Integer, lpRect As RECT)
  2183. Declare Sub SetRect Lib "User" (lpRect As RECT, ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer)
  2184. Declare Sub SetRectEmpty Lib "User" (lpRect As RECT)
  2185. Declare Function CopyRect Lib "User" (lpDestRect As RECT, lpSourceRect As RECT) As Integer
  2186. Declare Sub InflateRect Lib "User" (lpRect As RECT, ByVal X As Integer, ByVal Y As Integer)
  2187. Declare Function IntersectRect Lib "User" (lpDestRect As RECT, lpSrc1Rect As RECT, lpSrc2Rect As RECT) As Integer
  2188. Declare Function UnionRect Lib "User" (lpDestRect As RECT, lpSrc1Rect As RECT, lpSrc2Rect As RECT) As Integer
  2189. Declare Sub OffsetRect Lib "User" (lpRect As RECT, ByVal X As Integer, ByVal Y As Integer)
  2190. Declare Function IsRectEmpty Lib "User" (lpRect As RECT) As Integer
  2191. Declare Function EqualRect Lib "User" (lpRect1 As RECT, lpRect2 As RECT) As Integer
  2192. Declare Function PtInRect Lib "User" (lpRect As RECT, ByVal Point As Any) As Integer
  2193. Declare Function RectVisible Lib "User" (ByVal hDC As Integer, lpRect As RECT) As Integer
  2194. Declare Function RectInRegion Lib "User" (ByVal hRgn As Integer, lpRect As RECT) As Integer
  2195.  
  2196. Declare Function GetCurrentTime Lib "User" () As Long
  2197. Declare Function GetTickCount Lib "User" () As Long
  2198.  
  2199. Declare Function GetWindowWord Lib "User" (ByVal hWnd As Integer, ByVal nIndex As Integer) As Integer
  2200. Declare Function SetWindowWord Lib "User" (ByVal hWnd As Integer, ByVal nIndex As Integer, ByVal wNewWord As Integer) As Integer
  2201. Declare Function GetWindowLong Lib "User" (ByVal hWnd As Integer, ByVal nIndex As Integer) As Long
  2202. Declare Function SetWindowLong Lib "User" (ByVal hWnd As Integer, ByVal nIndex As Integer, ByVal dwNewLong As Long) As Long
  2203. Declare Function GetClassWord Lib "User" (ByVal hWnd As Integer, ByVal nIndex As Integer) As Integer
  2204. Declare Function SetClassWord Lib "User" (ByVal hWnd As Integer, ByVal nIndex As Integer, ByVal wNewWord As Integer) As Integer
  2205. Declare Function GetClassLong Lib "User" (ByVal hWnd As Integer, ByVal nIndex As Integer) As Long
  2206. Declare Function SetClassLong Lib "User" (ByVal hWnd As Integer, ByVal nIndex As Integer, ByVal dwNewLong As Long) As Long
  2207. Declare Function GetDesktopHwnd Lib "User" () As Integer
  2208. Declare Function GetDesktopWindow Lib "User" () As Integer
  2209.  
  2210.  
  2211. Declare Function GetParent Lib "User" (ByVal hWnd As Integer) As Integer
  2212. Declare Function SetParent Lib "User" (ByVal hWndChild As Integer, ByVal hWndNewParent As Integer) As Integer
  2213. Declare Function FindWindow Lib "User" (lpClassName As Any, lpWindowName As Any) As Integer
  2214. Declare Function GetClassName Lib "User" (ByVal hWnd As Integer, ByVal lpClassName As String, ByVal nMaxCount As Integer) As Integer
  2215. Declare Function GetTopWindow Lib "User" (ByVal hWnd As Integer) As Integer
  2216. Declare Function GetNextWindow Lib "User" (ByVal hWnd As Integer, ByVal wFlag As Integer) As Integer
  2217. Declare Function GetWindowTask Lib "User" (ByVal hWnd As Integer) As Integer
  2218. Declare Function GetLastActivePopup Lib "User" (ByVal hwndOwnder As Integer) As Integer
  2219.  
  2220. '  GetWindow() Constants
  2221. Global Const GW_HWNDFIRST = 0
  2222. Global Const GW_HWNDLAST = 1
  2223. Global Const GW_HWNDNEXT = 2
  2224. Global Const GW_HWNDPREV = 3
  2225. Global Const GW_OWNER = 4
  2226. Global Const GW_CHILD = 5
  2227.  
  2228. Declare Function GetWindow Lib "User" (ByVal hWnd As Integer, ByVal wCmd As Integer) As Integer
  2229.  
  2230. '  Menu flags for Add/Check/EnableMenuItem()
  2231. Global Const MF_INSERT = &H0
  2232. Global Const MF_CHANGE = &H80
  2233. Global Const MF_APPEND = &H100
  2234. Global Const MF_DELETE = &H200
  2235. Global Const MF_REMOVE = &H1000
  2236.  
  2237. Global Const MF_BYCOMMAND = &H0
  2238. Global Const MF_BYPOSITION = &H400
  2239.  
  2240. Global Const MF_SEPARATOR = &H800
  2241.  
  2242. Global Const MF_ENABLED = &H0
  2243. Global Const MF_GRAYED = &H1
  2244. Global Const MF_DISABLED = &H2
  2245.  
  2246. Global Const MF_UNCHECKED = &H0
  2247. Global Const MF_CHECKED = &H8
  2248. Global Const MF_USECHECKBITMAPS = &H200
  2249.  
  2250. Global Const MF_STRING = &H0
  2251. Global Const MF_BITMAP = &H4
  2252. Global Const MF_OWNERDRAW = &H100
  2253.  
  2254. Global Const MF_POPUP = &H10
  2255. Global Const MF_MENUBARBREAK = &H20
  2256. Global Const MF_MENUBREAK = &H40
  2257.  
  2258. Global Const MF_UNHILITE = &H0
  2259. Global Const MF_HILITE = &H80
  2260.  
  2261. Global Const MF_SYSMENU = &H2000
  2262. Global Const MF_HELP = &H4000
  2263. Global Const MF_MOUSESELECT = &H8000
  2264.  
  2265. '  Menu item resource format
  2266. Type MENUITEMTEMPLATEHEADER
  2267.     versionNumber As Integer
  2268.     offset As Integer
  2269. End Type
  2270.  
  2271. Type MENUITEMTEMPLATE
  2272.     mtOption As Integer
  2273.     mtID As Integer
  2274.     mtString As Long 
  2275. End Type
  2276.  
  2277. Global Const MF_END = &H80
  2278.  
  2279. '  System Menu Command Values
  2280. Global Const SC_SIZE = &HF000
  2281. Global Const SC_MOVE = &HF010
  2282. Global Const SC_MINIMIZE = &HF020
  2283. Global Const SC_MAXIMIZE = &HF030
  2284. Global Const SC_NEXTWINDOW = &HF040
  2285. Global Const SC_PREVWINDOW = &HF050
  2286. Global Const SC_CLOSE = &HF060
  2287. Global Const SC_VSCROLL = &HF070
  2288. Global Const SC_HSCROLL = &HF080
  2289. Global Const SC_MOUSEMENU = &HF090
  2290. Global Const SC_KEYMENU = &HF100
  2291. Global Const SC_ARRANGE = &HF110
  2292. Global Const SC_RESTORE = &HF120
  2293. Global Const SC_TASKLIST = &HF130
  2294.  
  2295. Global Const SC_ICON = SC_MINIMIZE
  2296. Global Const SC_ZOOM = SC_MAXIMIZE
  2297.  
  2298. '  Resource Loading Routines
  2299. Declare Function LoadBitmap Lib "User" (ByVal hInstance As Integer, ByVal lpBitmapName As Any) As Integer
  2300. Declare Function LoadCursor Lib "User" (ByVal hInstance As Integer, ByVal lpCursorName As Any) As Integer
  2301. Declare Function CreateCursor Lib "User" (ByVal hInstance%, ByVal nXhotspot%, ByVal nYhotspot%, ByVal nWidth%, ByVal nHeight%, ByVal lpANDbitPlane As Any, ByVal lpXORbitPlane As Any) As Integer
  2302. Declare Function DestroyCursor Lib "User" (ByVal hCursor As Integer) As Integer
  2303.  
  2304. '  Standard Cursor IDs
  2305. Global Const IDC_ARROW = 32512&
  2306. Global Const IDC_IBEAM = 32513&
  2307. Global Const IDC_WAIT = 32514&
  2308. Global Const IDC_CROSS = 32515&
  2309. Global Const IDC_UPARROW = 32516&
  2310. Global Const IDC_SIZE = 32640&
  2311. Global Const IDC_ICON = 32641&
  2312. Global Const IDC_SIZENWSE = 32642&
  2313. Global Const IDC_SIZENESW = 32643&
  2314. Global Const IDC_SIZEWE = 32644&
  2315. Global Const IDC_SIZENS = 32645&
  2316.  
  2317. Declare Function LoadIcon Lib "User" (ByVal hInstance As Integer, ByVal lpIconName As Any) As Integer
  2318. Declare Function CreateIcon Lib "User" (ByVal hInstance%, ByVal nWidth%, ByVal nHeight%, ByVal nPlanes%, ByVal nBitsPixel%, ByVal lpANDbits As Any, ByVal lpXORbits As Any) As Integer
  2319. Declare Function DestroyIcon Lib "User" (ByVal hIcon As Integer) As Integer
  2320.  
  2321.  
  2322. Global Const ORD_LANGDRIVER = 1    '  The ordinal number for the entry point of
  2323.                             '  language drivers.
  2324.  
  2325. '  Standard Icon IDs
  2326. Global Const IDI_APPLICATION = 32512&
  2327. Global Const IDI_HAND = 32513&
  2328. Global Const IDI_QUESTION = 32514&
  2329. Global Const IDI_EXCLAMATION = 32515&
  2330. Global Const IDI_ASTERISK = 32516&
  2331.  
  2332. Declare Function LoadString Lib "User" (ByVal hInstance As Integer, ByVal wID As Integer, ByVal lpBuffer As Any, ByVal nBufferMax As Integer) As Integer
  2333.  
  2334. Declare Function AddFontResource Lib "GDI" (ByVal lpFilename As Any) As Integer
  2335. Declare Function RemoveFontResource Lib "GDI" (ByVal lpFilename As Any) As Integer
  2336.  
  2337. '  Dialog Box Command IDs
  2338. Global Const IDOK = 1
  2339. Global Const IDCANCEL = 2
  2340. Global Const IDABORT = 3
  2341. Global Const IDRETRY = 4
  2342. Global Const IDIGNORE = 5
  2343. Global Const IDYES = 6
  2344. Global Const IDNO = 7
  2345.  
  2346.  
  2347. '  Control Manager Structures and Definitions
  2348.  
  2349. '  Edit Control Styles
  2350. Global Const ES_LEFT = &H0&
  2351. Global Const ES_CENTER = &H1&
  2352. Global Const ES_RIGHT = &H2&
  2353. Global Const ES_MULTILINE = &H4&
  2354. Global Const ES_UPPERCASE = &H8&
  2355. Global Const ES_LOWERCASE = &H10&
  2356. Global Const ES_PASSWORD = &H20&
  2357. Global Const ES_AUTOVSCROLL = &H40&
  2358. Global Const ES_AUTOHSCROLL = &H80&
  2359. Global Const ES_NOHIDESEL = &H100&
  2360. Global Const ES_OEMCONVERT = &H400&
  2361.  
  2362. '  Edit Control Notification Codes
  2363. Global Const EN_SETFOCUS = &H100
  2364. Global Const EN_KILLFOCUS = &H200
  2365. Global Const EN_CHANGE = &H300
  2366. Global Const EN_UPDATE = &H400
  2367. Global Const EN_ERRSPACE = &H500
  2368. Global Const EN_MAXTEXT = &H501
  2369. Global Const EN_HSCROLL = &H601
  2370. Global Const EN_VSCROLL = &H602
  2371.  
  2372. '  Edit Control Messages
  2373. Global Const EM_GETSEL = WM_USER+0
  2374. Global Const EM_SETSEL = WM_USER+1
  2375. Global Const EM_GETRECT = WM_USER+2
  2376. Global Const EM_SETRECT = WM_USER+3
  2377. Global Const EM_SETRECTNP = WM_USER+4
  2378. Global Const EM_SCROLL = WM_USER+5
  2379. Global Const EM_LINESCROLL = WM_USER+6
  2380. Global Const EM_GETMODIFY = WM_USER+7
  2381. Global Const EM_SETMODIFY = WM_USER+8
  2382. Global Const EM_GETLINECOUNT = WM_USER+9
  2383. Global Const EM_LINEINDEX = WM_USER+10
  2384. Global Const EM_SETHANDLE = WM_USER+12
  2385. Global Const EM_GETHANDLE = WM_USER+13
  2386. Global Const EM_GETTHUMB = WM_USER+14
  2387. Global Const EM_LINELENGTH = WM_USER+17
  2388. Global Const EM_REPLACESEL = WM_USER+18
  2389. Global Const EM_SETFONT = WM_USER+19
  2390. Global Const EM_GETLINE = WM_USER+20
  2391. Global Const EM_LIMITTEXT = WM_USER+21
  2392. Global Const EM_CANUNDO = WM_USER+22
  2393. Global Const EM_UNDO = WM_USER+23
  2394. Global Const EM_FMTLINES = WM_USER+24
  2395. Global Const EM_LINEFROMCHAR = WM_USER+25
  2396. Global Const EM_SETWORDBREAK = WM_USER+26
  2397. Global Const EM_SETTABSTOPS = WM_USER+27
  2398. Global Const EM_SETPASSWORDCHAR = WM_USER+28
  2399. Global Const EM_EMPTYUNDOBUFFER = WM_USER+29
  2400. Global Const EM_MSGMAX = WM_USER+30
  2401.  
  2402. '  Button Control Styles
  2403. Global Const BS_PUSHBUTTON = &H0&
  2404. Global Const BS_DEFPUSHBUTTON = &H1&
  2405. Global Const BS_CHECKBOX = &H2&
  2406. Global Const BS_AUTOCHECKBOX = &H3&
  2407. Global Const BS_RADIOBUTTON = &H4&
  2408. Global Const BS_3STATE = &H5&
  2409. Global Const BS_AUTO3STATE = &H6&
  2410. Global Const BS_GROUPBOX = &H7&
  2411. Global Const BS_USERBUTTON = &H8&
  2412. Global Const BS_AUTORADIOBUTTON = &H9&
  2413. Global Const BS_PUSHBOX = &HA&
  2414. Global Const BS_OWNERDRAW = &HB&
  2415. Global Const BS_LEFTTEXT = &H20&
  2416.  
  2417. '  User Button Notification Codes
  2418. Global Const BN_CLICKED = 0
  2419. Global Const BN_PAINT = 1
  2420. Global Const BN_HILITE = 2
  2421. Global Const BN_UNHILITE = 3
  2422. Global Const BN_DISABLE = 4
  2423. Global Const BN_DOUBLECLICKED = 5
  2424.  
  2425. '  Button Control Messages
  2426. Global Const BM_GETCHECK = WM_USER+0
  2427. Global Const BM_SETCHECK = WM_USER+1
  2428. Global Const BM_GETSTATE = WM_USER+2
  2429. Global Const BM_SETSTATE = WM_USER+3
  2430. Global Const BM_SETSTYLE = WM_USER+4
  2431.  
  2432. '  Static Control Constants
  2433. Global Const SS_LEFT = &H0&
  2434. Global Const SS_CENTER = &H1&
  2435. Global Const SS_RIGHT = &H2&
  2436. Global Const SS_ICON = &H3&
  2437. Global Const SS_BLACKRECT = &H4&
  2438. Global Const SS_GRAYRECT = &H5&
  2439. Global Const SS_WHITERECT = &H6&
  2440. Global Const SS_BLACKFRAME = &H7&
  2441. Global Const SS_GRAYFRAME = &H8&
  2442. Global Const SS_WHITEFRAME = &H9&
  2443. Global Const SS_USERITEM = &HA&
  2444. Global Const SS_SIMPLE = &HB&
  2445. Global Const SS_LEFTNOWORDWRAP = &HC&
  2446. Global Const SS_NOPREFIX = &H80&    '  Don't do "&" character translation
  2447.  
  2448. '  Dialog Manager Routines
  2449. Declare Function IsDialogMessage Lib "User" (ByVal hDlg As Integer, lpMsg As MSG) As Integer
  2450.  
  2451. Declare Sub MapDialogRect Lib "User" (ByVal hDlg As Integer, lpRect As RECT)
  2452.  
  2453. Declare Function DlgDirList Lib "User" (ByVal hDlg As Integer, ByVal lpPathSpec As String, ByVal nIDListBox As Integer, ByVal nIDStaticPath As Integer, ByVal wFiletype As Integer) As Integer
  2454. Declare Function DlgDirSelect Lib "User" (ByVal hDlg As Integer, ByVal lpString As String, ByVal nIDListBox As Integer) As Integer
  2455. Declare Function DlgDirListComboBox Lib "User" (ByVal hDlg As Integer, ByVal lpPathSpec As String, ByVal nIDComboBox As Integer, ByVal nIDStaticPath As Integer, ByVal wFileType As Integer) As Integer
  2456. Declare Function DlgDirSelectComboBox Lib "User" (ByVal hDlg As Integer, ByVal lpString As String, ByVal nIDComboBox As Integer) As Integer
  2457.  
  2458. '  Dialog Styles
  2459. Global Const DS_ABSALIGN = &H1&
  2460. Global Const DS_SYSMODAL = &H2&
  2461. Global Const DS_LOCALEDIT = &H20&    '  Edit items get Local storage.
  2462. Global Const DS_SETFONT = &H40&    '  User specified font for Dlg controls
  2463. Global Const DS_MODALFRAME = &H80&    '  Can be combined with WS_CAPTION
  2464. Global Const DS_NOIDLEMSG = &H100&    '  WM_ENTERIDLE message will not be sent
  2465.  
  2466. Global Const DM_GETDEFID = WM_USER+0
  2467. Global Const DM_SETDEFID = WM_USER+1
  2468. Global Const DC_HASDEFID = &H534%     '0x534B
  2469.  
  2470. '  Dialog Codes
  2471. Global Const DLGC_WANTARROWS = &H1    '  Control wants arrow keys
  2472. Global Const DLGC_WANTTAB = &H2    '  Control wants tab keys
  2473. Global Const DLGC_WANTALLKEYS = &H4    '  Control wants all keys
  2474. Global Const DLGC_WANTMESSAGE = &H4    '  Pass message to control
  2475. Global Const DLGC_HASSETSEL = &H8    '  Understands EM_SETSEL message
  2476. Global Const DLGC_DEFPUSHBUTTON = &H10    '  Default pushbutton
  2477. Global Const DLGC_UNDEFPUSHBUTTON = &H20    '  Non-default pushbutton
  2478. Global Const DLGC_RADIOBUTTON = &H40    '  Radio button
  2479. Global Const DLGC_WANTCHARS = &H80    '  Want WM_CHAR messages
  2480. Global Const DLGC_STATIC = &H100    '  Static item: don't include
  2481. Global Const DLGC_BUTTON = &H2000    '  Button item: can be checked
  2482.  
  2483. Global Const LB_CTLCODE = 0&
  2484.  
  2485. '  Listbox Return Values
  2486. Global Const LB_OKAY = 0
  2487. Global Const LB_ERR = (-1)
  2488. Global Const LB_ERRSPACE = (-2)
  2489.  
  2490. '
  2491. '  The idStaticPath parameter to DlgDirList can have the following values
  2492. '  ORed if the list box should show other details of the files along with
  2493. '  the name of the files;
  2494.  
  2495. '  all other details also will be returned
  2496.  
  2497. '  Listbox Notification Codes
  2498. Global Const LBN_ERRSPACE = (-2)
  2499. Global Const LBN_SELCHANGE = 1
  2500. Global Const LBN_DBLCLK = 2
  2501. Global Const LBN_SELCANCEL = 3
  2502. Global Const LBN_SETFOCUS = 4
  2503. Global Const LBN_KILLFOCUS = 5
  2504.  
  2505. '  Listbox messages
  2506. Global Const LB_ADDSTRING = (WM_USER+1)
  2507. Global Const LB_INSERTSTRING = (WM_USER+2)
  2508. Global Const LB_DELETESTRING = (WM_USER+3)
  2509. Global Const LB_RESETCONTENT = (WM_USER+5)
  2510. Global Const LB_SETSEL = (WM_USER+6)
  2511. Global Const LB_SETCURSEL = (WM_USER+7)
  2512. Global Const LB_GETSEL = (WM_USER+8)
  2513. Global Const LB_GETCURSEL = (WM_USER+9)
  2514. Global Const LB_GETTEXT = (WM_USER+10)
  2515. Global Const LB_GETTEXTLEN = (WM_USER+11)
  2516. Global Const LB_GETCOUNT = (WM_USER+12)
  2517. Global Const LB_SELECTSTRING = (WM_USER+13)
  2518. Global Const LB_DIR = (WM_USER+14)
  2519. Global Const LB_GETTOPINDEX = (WM_USER+15)
  2520. Global Const LB_FINDSTRING = (WM_USER+16)
  2521. Global Const LB_GETSELCOUNT = (WM_USER+17)
  2522. Global Const LB_GETSELITEMS = (WM_USER+18)
  2523. Global Const LB_SETTABSTOPS = (WM_USER+19)
  2524. Global Const LB_GETHORIZONTALEXTENT = (WM_USER+20)
  2525. Global Const LB_SETHORIZONTALEXTENT = (WM_USER+21)
  2526. Global Const LB_SETCOLUMNWIDTH = (WM_USER+22)
  2527. Global Const LB_SETTOPINDEX = (WM_USER+24)
  2528. Global Const LB_GETITEMRECT = (WM_USER+25)
  2529. Global Const LB_GETITEMDATA = (WM_USER+26)
  2530. Global Const LB_SETITEMDATA = (WM_USER+27)
  2531. Global Const LB_SELITEMRANGE = (WM_USER+28)
  2532. Global Const LB_MSGMAX = (WM_USER+33)
  2533.  
  2534. '  Listbox Styles
  2535. Global Const LBS_NOTIFY = &H1&
  2536. Global Const LBS_SORT = &H2&
  2537. Global Const LBS_NOREDRAW = &H4&
  2538. Global Const LBS_MULTIPLESEL = &H8&
  2539. Global Const LBS_OWNERDRAWFIXED = &H10&
  2540. Global Const LBS_OWNERDRAWVARIABLE = &H20&
  2541. Global Const LBS_HASSTRINGS = &H40&
  2542. Global Const LBS_USETABSTOPS = &H80&
  2543. Global Const LBS_NOINTEGRALHEIGHT = &H100&
  2544. Global Const LBS_MULTICOLUMN = &H200&
  2545. Global Const LBS_WANTKEYBOARDINPUT = &H400&
  2546. Global Const LBS_EXTENDEDSEL = &H800&
  2547. Global Const LBS_STANDARD = (LBS_NOTIFY Or LBS_SORT Or WS_VSCROLL Or WS_BORDER)
  2548.  
  2549. '  Combo Box return Values
  2550. Global Const CB_OKAY = 0
  2551. Global Const CB_ERR = (-1)
  2552. Global Const CB_ERRSPACE = (-2)
  2553.  
  2554. '  Combo Box Notification Codes
  2555. Global Const CBN_ERRSPACE = (-1)
  2556. Global Const CBN_SELCHANGE = 1
  2557. Global Const CBN_DBLCLK = 2
  2558. Global Const CBN_SETFOCUS = 3
  2559. Global Const CBN_KILLFOCUS = 4
  2560. Global Const CBN_EDITCHANGE = 5
  2561. Global Const CBN_EDITUPDATE = 6
  2562. Global Const CBN_DROPDOWN = 7
  2563.  
  2564. '  Combo Box styles
  2565. Global Const CBS_SIMPLE = &H1&
  2566. Global Const CBS_DROPDOWN = &H2&
  2567. Global Const CBS_DROPDOWNLIST = &H3&
  2568. Global Const CBS_OWNERDRAWFIXED = &H10&
  2569. Global Const CBS_OWNERDRAWVARIABLE = &H20&
  2570. Global Const CBS_AUTOHSCROLL = &H40&
  2571. Global Const CBS_OEMCONVERT = &H80&
  2572. Global Const CBS_SORT = &H100&
  2573. Global Const CBS_HASSTRINGS = &H200&
  2574. Global Const CBS_NOINTEGRALHEIGHT = &H400&
  2575.  
  2576. '  Combo Box messages
  2577. Global Const CB_GETEDITSEL = (WM_USER+0)
  2578. Global Const CB_LIMITTEXT = (WM_USER+1)
  2579. Global Const CB_SETEDITSEL = (WM_USER+2)
  2580. Global Const CB_ADDSTRING = (WM_USER+3)
  2581. Global Const CB_DELETESTRING = (WM_USER+4)
  2582. Global Const CB_DIR = (WM_USER+5)
  2583. Global Const CB_GETCOUNT = (WM_USER+6)
  2584. Global Const CB_GETCURSEL = (WM_USER+7)
  2585. Global Const CB_GETLBTEXT = (WM_USER+8)
  2586. Global Const CB_GETLBTEXTLEN = (WM_USER+9)
  2587. Global Const CB_INSERTSTRING = (WM_USER+10)
  2588. Global Const CB_RESETCONTENT = (WM_USER+11)
  2589. Global Const CB_FINDSTRING = (WM_USER+12)
  2590. Global Const CB_SELECTSTRING = (WM_USER+13)
  2591. Global Const CB_SETCURSEL = (WM_USER+14)
  2592. Global Const CB_SHOWDROPDOWN = (WM_USER+15)
  2593. Global Const CB_GETITEMDATA = (WM_USER+16)
  2594. Global Const CB_SETITEMDATA = (WM_USER+17)
  2595. Global Const CB_GETDROPPEDCONTROLRECT = (WM_USER+18)
  2596. Global Const CB_MSGMAX = (WM_USER+19)
  2597.  
  2598. '  Scroll Bar Styles
  2599. Global Const SBS_HORZ = &H0&
  2600. Global Const SBS_VERT = &H1&
  2601. Global Const SBS_TOPALIGN = &H2&
  2602. Global Const SBS_LEFTALIGN = &H2&
  2603. Global Const SBS_BOTTOMALIGN = &H4&
  2604. Global Const SBS_RIGHTALIGN = &H4&
  2605. Global Const SBS_SIZEBOXTOPLEFTALIGN = &H2&
  2606. Global Const SBS_SIZEBOXBOTTOMRIGHTALIGN = &H4&
  2607. Global Const SBS_SIZEBOX = &H8&
  2608.  
  2609.  
  2610. '  Sound Functions
  2611. '
  2612. Declare Function OpenSound Lib "Sound" () As Integer
  2613. Declare Sub CloseSound Lib "Sound" ()
  2614. Declare Function SetVoiceQueueSize Lib "Sound" (ByVal nVoice As Integer, ByVal nBytes As Integer) As Integer
  2615. Declare Function SetVoiceNote Lib "Sound" (ByVal nVoice As Integer, ByVal nValue As Integer, ByVal nLength As Integer, ByVal nCdots As Integer) As Integer
  2616. Declare Function SetVoiceAccent Lib "Sound" (ByVal nVoice As Integer, ByVal nTempo As Integer, ByVal nVolume As Integer, ByVal nMode As Integer, ByVal nPitch As Integer) As Integer
  2617. Declare Function SetVoiceEnvelope Lib "Sound" (ByVal nVoice As Integer, ByVal nShape As Integer, ByVal nRepeat As Integer) As Integer
  2618. Declare Function SetSoundNoise Lib "Sound" (ByVal nSource As Integer, ByVal nDuration As Integer) As Integer
  2619. Declare Function SetVoiceSound Lib "Sound" (ByVal nVoice As Integer, ByVal lFrequency As Long, ByVal nDuration As Integer) As Integer
  2620. Declare Function StartSound Lib "Sound" () As Integer
  2621. Declare Function StopSound Lib "Sound" () As Integer
  2622. Declare Function WaitSoundState Lib "Sound" (ByVal nState As Integer) As Integer
  2623. Declare Function SyncAllVoices Lib "Sound" () As Integer
  2624. Declare Function CountVoiceNotes Lib "Sound" (ByVal nVoice As Integer) As Integer
  2625. Declare Function GetThresholdEvent Lib "Sound" () As Integer
  2626. Declare Function GetThresholdStatus Lib "Sound" () As Integer
  2627. Declare Function SetVoiceThreshold Lib "Sound" (ByVal nVoice As Integer, ByVal nNotes As Integer) As Integer
  2628.  
  2629. '  WaitSoundState() Constants
  2630. Global Const S_QUEUEEMPTY = 0
  2631. Global Const S_THRESHOLD = 1
  2632. Global Const S_ALLTHRESHOLD = 2
  2633.  
  2634. '  Accent Modes
  2635. Global Const S_NORMAL = 0
  2636. Global Const S_LEGATO = 1
  2637. Global Const S_STACCATO = 2
  2638.  
  2639. '  SetSoundNoise() Sources
  2640. Global Const S_PERIOD512 = 0    '  Freq = N/512 high pitch, less coarse hiss
  2641. Global Const S_PERIOD1024 = 1    '  Freq = N/1024
  2642. Global Const S_PERIOD2048 = 2    '  Freq = N/2048 low pitch, more coarse hiss
  2643. Global Const S_PERIODVOICE = 3    '  Source is frequency from voice channel (3)
  2644. Global Const S_WHITE512 = 4    '  Freq = N/512 high pitch, less coarse hiss
  2645. Global Const S_WHITE1024 = 5    '  Freq = N/1024
  2646. Global Const S_WHITE2048 = 6    '  Freq = N/2048 low pitch, more coarse hiss
  2647. Global Const S_WHITEVOICE = 7    '  Source is frequency from voice channel (3)
  2648.  
  2649. Global Const S_SERDVNA = (-1)    '  Device not available
  2650. Global Const S_SEROFM = (-2)    '  Out of memory
  2651. Global Const S_SERMACT = (-3)    '  Music active
  2652. Global Const S_SERQFUL = (-4)    '  Queue full
  2653. Global Const S_SERBDNT = (-5)    '  Invalid note
  2654. Global Const S_SERDLN = (-6)    '  Invalid note length
  2655. Global Const S_SERDCC = (-7)    '  Invalid note count
  2656. Global Const S_SERDTP = (-8)    '  Invalid tempo
  2657. Global Const S_SERDVL = (-9)    '  Invalid volume
  2658. Global Const S_SERDMD = (-10)    '  Invalid mode
  2659. Global Const S_SERDSH = (-11)    '  Invalid shape
  2660. Global Const S_SERDPT = (-12)    '  Invalid pitch
  2661. Global Const S_SERDFQ = (-13)    '  Invalid frequency
  2662. Global Const S_SERDDR = (-14)    '  Invalid duration
  2663. Global Const S_SERDSR = (-15)    '  Invalid source
  2664. Global Const S_SERDST = (-16)    '  Invalid state
  2665.  
  2666. '  COMM declarations
  2667. '
  2668. Global Const NOPARITY = 0
  2669. Global Const ODDPARITY = 1
  2670. Global Const EVENPARITY = 2
  2671. Global Const MARKPARITY = 3
  2672. Global Const SPACEPARITY = 4
  2673.  
  2674. Global Const ONESTOPBIT = 0
  2675. Global Const ONE5STOPBITS = 1
  2676. Global Const TWOSTOPBITS = 2
  2677.  
  2678. Global Const IGNORE = 0    '  Ignore signal
  2679. Global Const INFINITE = &HFFFF    '  Infinite timeout
  2680.  
  2681. '  Error Flags
  2682. Global Const CE_RXOVER = &H1    '  Receive Queue overflow
  2683. Global Const CE_OVERRUN = &H2    '  Receive Overrun Error
  2684. Global Const CE_RXPARITY = &H4    '  Receive Parity Error
  2685. Global Const CE_FRAME = &H8    '  Receive Framing error
  2686. Global Const CE_BREAK = &H10    '  Break Detected
  2687. Global Const CE_CTSTO = &H20    '  CTS Timeout
  2688. Global Const CE_DSRTO = &H40    '  DSR Timeout
  2689. Global Const CE_RLSDTO = &H80    '  RLSD Timeout
  2690. Global Const CE_TXFULL = &H100    '  TX Queue is full
  2691. Global Const CE_PTO = &H200    '  LPTx Timeout
  2692. Global Const CE_IOE = &H400    '  LPTx I/O Error
  2693. Global Const CE_DNS = &H800    '  LPTx Device not selected
  2694. Global Const CE_OOP = &H1000    '  LPTx Out-Of-Paper
  2695. Global Const CE_MODE = &H8000    '  Requested mode unsupported
  2696.  
  2697. Global Const IE_BADID = (-1)    '  Invalid or unsupported id
  2698. Global Const IE_OPEN = (-2)    '  Device Already Open
  2699. Global Const IE_NOPEN = (-3)    '  Device Not Open
  2700. Global Const IE_MEMORY = (-4)    '  Unable to allocate queues
  2701. Global Const IE_DEFAULT = (-5)    '  Error in default parameters
  2702. Global Const IE_HARDWARE = (-10)    '  Hardware Not Present
  2703. Global Const IE_BYTESIZE = (-11)    '  Illegal Byte Size
  2704. Global Const IE_BAUDRATE = (-12)    '  Unsupported BaudRate
  2705.  
  2706. '  Events
  2707. Global Const EV_RXCHAR = &H1    '  Any Character received
  2708. Global Const EV_RXFLAG = &H2    '  Received certain character
  2709. Global Const EV_TXEMPTY = &H4    '  Transmitt Queue Empty
  2710. Global Const EV_CTS = &H8    '  CTS changed state
  2711. Global Const EV_DSR = &H10    '  DSR changed state
  2712. Global Const EV_RLSD = &H20    '  RLSD changed state
  2713. Global Const EV_BREAK = &H40    '  BREAK received
  2714. Global Const EV_ERR = &H80    '  Line status error occurred
  2715. Global Const EV_RING = &H100    '  Ring signal detected
  2716. Global Const EV_PERR = &H200    '  Printer error occured
  2717.  
  2718. '  Escape Functions
  2719. Global Const SETXOFF = 1    '  Simulate XOFF received
  2720. Global Const SETXON = 2    '  Simulate XON received
  2721. Global Const SETRTS = 3    '  Set RTS high
  2722. Global Const CLRRTS = 4    '  Set RTS low
  2723. Global Const SETDTR = 5    '  Set DTR high
  2724. Global Const CLRDTR = 6    '  Set DTR low
  2725. Global Const RESETDEV = 7    '  Reset device if possible
  2726.  
  2727. Global Const LPTx = &H80    '  Set if ID is for LPT device
  2728.  
  2729. Type DCB
  2730.     Id As String * 1
  2731.     BaudRate As Integer
  2732.     ByteSize As String * 1
  2733.     Parity As String * 1
  2734.     StopBits As String * 1
  2735.     RlsTimeout As Integer
  2736.     CtsTimeout As Integer
  2737.     DsrTimeout As Integer
  2738.  
  2739.     Bits1 As String * 1 ' The fifteen actual DCB bit-sized data fields
  2740.     Bits2 As String * 1 ' within these two bytes can be manipulated by
  2741.                           ' bitwise logical And/Or operations.  Refer to
  2742.                           ' SDKWIN.HLP for location/meaning of specific bits
  2743.  
  2744.     XonChar As String * 1
  2745.     XoffChar As String * 1
  2746.     XonLim As Integer
  2747.     XoffLim As Integer
  2748.     PeChar As String * 1
  2749.     EofChar As String * 1
  2750.     EvtChar As String * 1
  2751.     TxDelay As Integer
  2752. End Type
  2753.  
  2754. Type COMSTAT
  2755.     Bits As String * 1 ' For specific bit flags and their 
  2756.                          ' meanings, refer to SDKWIN.HLP.
  2757.     cbInQue As Integer
  2758.     cbOutQue As Integer
  2759. End Type
  2760.  
  2761. Declare Function OpenComm Lib "User" (ByVal lpComName As String, ByVal wInQueue As Integer, ByVal wOutQueue As Integer) As Integer
  2762. Declare Function SetCommState Lib "User" (lpDCB as DCB) As Integer
  2763. Declare Function GetCommState Lib "User" (ByVal nCid As Integer, lpDCB as DCB) As Integer
  2764. Declare Function ReadComm Lib "User" (ByVal nCid As Integer, ByVal lpBuf As String, ByVal nSize As Integer) As Integer
  2765. Declare Function UngetCommChar Lib "User" (ByVal nCid As Integer, ByVal cChar As Integer) As Integer
  2766. Declare Function WriteComm Lib "User" (ByVal nCid As Integer, ByVal lpBuf As String, ByVal nSize As Integer) As Integer
  2767. Declare Function CloseComm Lib "User" (ByVal nCid As Integer) As Integer
  2768. Declare Function BuildCommDCB Lib "User" (ByVal lpDef As String, lpDCB As DCB) As Integer
  2769. Declare Function TransmitCommChar Lib "User" (ByVal nCid As Integer, ByVal cChar As Integer) As Integer
  2770. Declare Function SetCommEventMask Lib "User" (ByVal nCid as Integer, nEvtMask as Integer) As Long
  2771. Declare Function GetCommEventMask Lib "User" (ByVal nCid As Integer, ByVal nEvtMask As Integer) As Integer
  2772. Declare Function SetCommBreak Lib "User" (ByVal nCid As Integer) As Integer
  2773. Declare Function ClearCommBreak Lib "User" (ByVal nCid As Integer) As Integer
  2774. Declare Function FlushComm Lib "User" (ByVal nCid As Integer, ByVal nQueue As Integer) As Integer
  2775. Declare Function EscapeCommFunction Lib "User" (ByVal nCid As Integer, ByVal nFunc As Integer) As Integer
  2776.  
  2777. Type MDICREATESTRUCT
  2778.     szClass As Long
  2779.     szTitle As Long
  2780.     hOwner As Integer
  2781.     x As Integer
  2782.     y As Integer
  2783.     cx As Integer
  2784.     cy As Integer
  2785.     style As Long
  2786.     lParam As Long
  2787. End Type
  2788.  
  2789. Type CLIENTCREATESTRUCT
  2790.     hWindowMenu As Integer
  2791.     idFirstChild As Integer
  2792. End Type
  2793.  
  2794. Declare Function DefFrameProc Lib "User" (ByVal hWnd As Integer, ByVal hWndMDIClient As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Long) As Long
  2795. Declare Function DefMDIChildProc Lib "User" (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Long) As Long
  2796.  
  2797. Declare Function TranslateMDISysAccel Lib "User" (ByVal hWndClient As Integer, lpMsg As MSG) As Integer
  2798.  
  2799. Declare Function ArrangeIconicWindows Lib "User" (ByVal hWnd As Integer) As Integer
  2800.  
  2801.  
  2802. '   Help engine section.
  2803.  
  2804. '  Commands to pass WinHelp()
  2805. Global Const HELP_CONTEXT = &H1    '  Display topic in ulTopic
  2806. Global Const HELP_QUIT = &H2    '  Terminate help
  2807. Global Const HELP_INDEX = &H3    '  Display index
  2808. Global Const HELP_HELPONHELP = &H4    '  Display help on using help
  2809. Global Const HELP_SETINDEX = &H5    '  Set the current Index for multi index help
  2810. Global Const HELP_KEY = &H101        '  Display topic for keyword in offabData
  2811. Global Const HELP_MULTIKEY = &H201
  2812.  
  2813. Declare Function WinHelp Lib "User" (ByVal hWnd As Integer, ByVal lpHelpFile As String, ByVal wCommand As Integer, dwData As Any) As Integer
  2814.  
  2815. Type MULTIKEYHELP
  2816.     mkSize As Integer
  2817.     mkKeylist As String * 1
  2818.     szKeyphrase As String * 253 ' Array length is arbitrary; may be changed
  2819.  
  2820. End Type
  2821.  
  2822. '  function declarations for profiler routines contained in Windows libraries
  2823. Declare Function ProfInsChk Lib "User" () As Integer
  2824. Declare Sub ProfSetup Lib "User" (ByVal nBufferSize As Integer, ByVal nSamples As Integer)
  2825. Declare Sub ProfSampRate Lib "User" (ByVal nRate286 As Integer, ByVal nRate386 As Integer)
  2826. Declare Sub ProfStart Lib "User" ()
  2827. Declare Sub ProfStop Lib "User" ()
  2828. Declare Sub ProfClear Lib "User" ()
  2829. Declare Sub ProfFlush Lib "User" ()
  2830. Declare Sub ProfFinish Lib "User" ()
  2831.